EY-00 19E-SG-0001 


VAX/VMS 
system 
Programmer | 


Student Guide 


Prepcred by Educational Services 


| Digital Equipment Corporation 


Copyright © 1982, Digital Equipment Corporation. 
All Rights Reserved. 


The reproduction of this material, in part or whole, is 
strictly prohibited. For copy information, contact the 
Educational Services Department, Digital Equipment 
Carporation, Bedford, Massachusetts 01730. 


Printed in U.S.A. 


The information in this document is subject to change 
without notice and should not be construed as a com- 
mitment by Digital Equipment Corporation. Digital 
Equipment Corporation assumes no responsibility for 
any errors that may appear in this document. 


The software described in this document is furnished 
under a license and may not be used or copied except 
in accordance with the terms of such license. 


Digital Equipment Corporation assumes no responsibility 
for the use or reliability of its software on equipment 
that is not supplied by Digital. 


The following are trademarks of Digitat Equipment Corporation, 
Maynard, Massachusetts: 


DIGITAL DECsystem-10 MASSBUS 
DEC DECSYSTEM-20 OMNIBUS 
POP DIBOL OS/8 
DECUS EDUSYSTEM RSTS 
UNIBUS VAX RSX | 


VMS 1AS 


STUDENT GUIDE 
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COURSE DESCRIPTION 


This course is designed for specialists who will be doing 
consulting work on VAX/VMS at an advanced level. It provides 
Students with considerable laboratory time to practice writing 
system-level code that will interface to the operating system. 


This course is a ‘how to' course. To illustrate system-level 
code, and to provide an opportunity to practice writing such code, 
_the following topics will be discussed: 

e General considerations for writing system-level code 
e Adding a system service 
e Writing a command language interpreter (CLI) 


e Writing a symbiont (spooler) 


e Writing an application migration executive (AME) 


PREREQUISITES 


Fluency in the VAX-11 MACRO language, and successful 
completion of the VAX/VMS Internals/Data Structures course. 
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COURSE GOALS 


@e Identify restrictions imposed on system-level code, and which 
VMS features have access mode characteristics. 

e® Explain the organization of VMS source code, how to call 
commonly used system routines from a program, and how to work 
generally with the VMS source kit. 


e Given a task involving writing privileged code, select’ the 
appropriate technique(s) to use to solve the problem from the 
following list, and implement the solution: 


-~ Procedure called in kernel mode (S$CMKRNL) 


Adding a system service (privileged shareable image) 


Placing code in system buffer shared by all users 


Using special kernel ASTs to access process context 


e Given a task involving changing a user's interface to the 
operating system, determine when it is appropriate to write 
the following types of privileged code, and implement’ the 
solution: 

- Symbiont (and other communication with the job controller) 
- Command language interpreter (CLI) 


- Compatibility mode operating system emulator (AME) 


NON-GOALS 


e Writing device drivers 


e Writing ancillary control processors (ACPs) 
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RESOURCES 


e VAX~11 PATCH Utility Reference Manual 


In addition, the following material should be available for 
your reference: 
@ VAX/VMS Documentation Set 
@e VAX/VMS Internals and Data Structures 
@ VAX/VMS Hardware/Handbook 
e VAX/VMS Architecture Handbook 
@ VAX/VMS Microfiche and Projector 
e (Optional) VAX/VMS Source Kit 


@ VAX-ll Programming Card 
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COURSE ORGANIZATION 


This course is presented in a lecture/lab format. The 
instructor will reference the materials in this course handout. 
Lectures may consist of instructor presentation, class 
discussions, or directed individual study. The lab time will be 
used for demonstrations by the instructor, hands-on experience for 
the students, and the working of exercises and tests. 


The course material is structured within modules. Each 
module is a unique lesson on one or more of the skills required to 
write a particular type of system program. In many cases, 
existing system programs are studied as a basis for writing new or 
altered versions of those programs. 


A module consists of: 
e An introduction describing the purpose of the lesson. 


e At least one objective which states what you will know or be 
able to do when you complete the module. 


e Additional resources that provide supplementary reading and/or 
reference material for the module. 


e The module text consists of examples, reference notes, and 
copies of any visuals used by the instructor. In terminal 
printouts, user input is underlined. 


e A module test, which may be paper-and-pencil, lab-oriented, or 
both. By comparing your responses with the answers supplied, 
you can determine whether or not you have met the objective(s) 
of the module. If you cannot pass the test, you should 
consult with your instructor for additional help. 
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COURSE MAP 


The course map shows the relationship among the various 
modules. Those modules having arrows leading into other modules 
are defined as prerequisites for that module. You should complete 


all the prerequisites for a module before you begin studying its 
material. 
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INTRODUCTION 


There are two types of software programmers, application 
programmers and system programmers. They produce two types of 
programs, application programs and system programs. System 
programs are intended to help programmers write application 
programs that solve user problems. This course focuses.on writing 
system programs. 


When writing system programs, there are two general approaches 
that can be taken. The programmer can either write a program that 
solves a particular problem without altering the operating system, 
er the programmer can try to interface with (or modify) existing 
eperating system components. In either case, the system 
programmer has to write privileged code. 


When trying to solve individual problems, the system programmer 
may often: ; 


e Write a procedure that will be called in kernel mode (using 
SCMKRNL) 


@ Add a system service (privileged shareable image) 


@ Place code in a system buffer that can be accessed (shared) by 
many users 


e Use special kernel ASTS to access process context 


Examples of operating system components that can be modified or 
replaced include a symbiont, command language interpreter, and 
compatibility mode operating system emulator (or application 
migration executive, AME). 


One of the most important issues in writing privileged code is 
synchronization. System programs must observe various conventions 
to synchronize access to data, and to prevent events from 
eccurring at inopportune times. It is important to synchronize 
access to data so that shared data structures are protected from 
being modified simultaneously by several routines. It is equally 
important that some sequences of instructions be allowed to 
execute without interruption. 
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Special interrupt priority values (IPLs) can be used to block 
interrupts from being serviced during the execution of critical 
code paths. Care must be taken, however, to minimize the use of 
these special values so that the reporting and handling of 
important system events can still take place. . 


This module will focus on synchronization issues for system 
programs. It will also discuss the following topics related to 
writing privileged code: 


Restrictions placed on privileged code 

Techniques used for writing privileged code 

VMS features having access mode characteristics 
Commonly used system routines . 
Commonly used system macros 

Commonly referenced system locations 

Development tools available for writing system programs 


The other modules in this course will build on the concepts 
presented here. They will be used to demonstrate applications of 
the rules and principles presented in various areas related to 
system programming. 


OBJECTIVES 


e Identify restrictions imposed on system-level code 


e Identify VMS features that have the characteristic of access 
mode 


e Explain the organization of the VMS source code and source kit 


e Explain how to reference commonly used system routines and 
system macros 
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RESOURCES 


e VAX/VMS Internals and Data Structures 


e VAX Source Code Listings 

@ VAX/VMS Guide to Writing Device Drivers (for DELTA) 

@ .VAX/VMS System Dump Analyzer Reference Manual (for SDA) 
@ VAX-11 PATCH Utility Reference Manual | 
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Scope of System Programming 


Operating system exists to serve application programs and 
users 


-@ . Application programming utilizes the existing operating system 


System programming modifies or extends the existing operating 
system to better serve the application programs and users 


APPLICATION SYSTEM 
< er no en nn en we nen em meee omens > 
Utilize the Alter the Write a new 
existing existing operating 
operating operating ~ system 
system system 
- Application - Place code ~ VAX/xyz 

programming in buffer in 

in VAX/VMS non-paged pool 

- Tune the - User written 

existing system service 

operating 

system - Add command 
language 
interpreter 


_ =~ Add symbiont 


~ Add application 
migration 
executive 
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System Programming 
vs. 


Application Programming 


System programs are intended to help programmers write 
application programs 


System programs possess a degree of generality not found in 
typical application programs 


System programs are very concerned with system and user data 
security, as well as recovery from ail possible error 
conditions 


Application programs are first and foremost problem solvers 


For application programs, system programs are a@ means to an 
end 
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Approaches to System Programming 


e Individual problem solving 


With procedure called in kernel mode (SCMKRNL) 
Adding a system service (privileged shareable image) 
Placing code in system buffer shared by all users 


Using special kernel ASTs to access process context 


e Changing operating system component: 


Writing a symbiont (or other communication with Job 
Controller) 


Writing a command language interpreter 


Writing a compatibility mode operating system emulator 
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Organization of VMS Source Code 


e System map 


SYSSSYSTEM:SYS.MAP 


Roadmap to source code 


e Microfiche 


Source code listings 


Use index card to locate source code modules 


e Source kit 


= 


Source code files 
Requires separate license 


Organized by system component 


{COMPONENT} 
[.COM] {.LIS] [.O8J] [.SRC] 
COMMAND EMPTY ON EMPTY ON SOURCE 
PROCEDURES SOURCE KIT SOURCE KIT CODE 
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System Programming Tools 


e Program Development Tools 


Powerful instruction set 
System routines 
System macros 


System symbols 


e Debugging Tools 


System Dump Analyzer (SDA) 
DELTA debugger | 
PATCH utility 

Console command language 


MONITOR 


e Programming Aids 


System map 
System symbol table 
System macro library 


System examples directory 
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Frequently Used Instructions 


Queue Instructions Address Manip. Instructions 
INSQUE Insert entry in. queue MOVAx Move address. 
REMQUE Remove entry from queue PUSHAx Push address on stack 
Procedure Call and Return General Register Manipulation 

Instructions Instructions 
CHMx Change mode PUSHL Push longword 
RET Return from exception PUSHR Push register(s) 

or interrupt POPR Pop register(s) 

CALLx Call procedure ' MOVPSL Move from PSL 
RET Return from procedure BISPSW Set bit(s) in PSW 


BICPSW Clear bit(s) in PSW 


Subroutine Call and Return Unconditional Branch and Jump 
Instructions Instructions 

JSB Jump to subroutine BRx Branch 

BSB Branch to subroutine JMP Jump 

RSB Return from subroutine 

Privileged Processor Register Loop and Case Instructions 


Control Instructions 


SVPCTX Save process context ACBx Add, compare, and 
‘ branch 
LDPCTX Load process context AOBLEQ Add one and branch 
. if LEQ 
MTPR Move to processor AOBLSS Add one and branch 
register if ‘LT 
SOBGEQ Subtract one and 
MF PR Move from processor branch if GEQ 
register SOBGTR Subtract one and 
branch if GT 
CASE Case uSing operand 
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Commonly Used System Macros 


e Defined in SYSSLIBRARY:LIB.MLB 


Can list/extract macros using LIBRARY command 
Must assemble programs with this library ~ 
$ MACRO program+SYS$LIBRARY: LIB/LIBRARY 


control macros: 


SETIPL [IPL] (default #31) 


DSBINT [IPL, DST] (default =. #31, stack) 


ENBINT [SRC] (default 


stack) 


SOFTINT IPL 


e Address probing macros: 


Arguments are SIZE, ADDRESS, DESTINATION, MODE 


IFRD 
IFNORD 
IFWRT 


IFNOWRT 


@e Privilege checking macros: 


Arguments are PRIV, DEST, PCBREG 


IFPRIV 


IFNPRIV 


e Others: 


ASSUME 
BUG_CHECK 
RPTEVT 
FORK 
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(Tests assumptions at assembly time) 
(Halts system) 
(Report system event) 


(Create fork process) 
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Commonly Used Definition Macros 


e Data Structure Formats (SxyzDEF) 


$ PCB DEF 
SJIBDEF 
SIRPDEF 


STQEDEF 


 $PHDDEF 


e Constants 


SIPLDEF 
SSSDEF 
S$ PRDEF 
SIODEF 


SDYNDEF 


@e Symbol Definitions 


SDEFINI 
$DEF 
SDEFEND 


SVIELD 


a 


- 
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Commonly Used System Routines 


To access from a program: 

- JSB G°routine 

- Must link program with system symbol table 

$ LINK program,SYSS$SYSTEM:SYS.STB/SELECTIVE 

- Must relink program with each major release of VMS 
To find inputs/outputs/side effects 

- Look in system map for defining module 

- Find module on fiche, read comments, check code 

- Examine modules that call routine 
Obtaining/Releasing pool space 

- EXESALONONPAGED 

= EXESALLOCxyz 

=- EXESDEANONPAGED 
Obtaining/Releasing mutex 

- SCHSLOCKR 

- SCHSLOCKW 

~- SCHSUNLOCK . 
Handling event flags 

- SCHSCLREF 


- SCHSPOSTEF 
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e Others 


- SCHSQAST (queue AST to process) 


- EXESSNGLEQUOTA (check single quota) ; 
~ EXESBUFFRQUOTA (check buffered byte count quota) 


~ EXESNAMPID (convert process name to PID) 


Listing 
2) 
MEMORVALE 
v¥O3~-001 
OGAS 
$1 GF 
$i oF 
FS 
$i eoaccacad sf 
12 
6060 °CF $2 
4a 
$2 e060 °CF 
18 
$6 62 


$2 6000 °CF 
$2 aoce°cr 
$2 6006°OF 


64 
30 62 


6208 
b€ 56 
@000°CF 


$3 
$8 
62 $6 


0600 °CF 02 
0289 


l=1 


: Sample System Routine (EXESALONONPAGED) (Page 1 
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= OYNAMIC MENGRY ALLOCATION 


ALLOCATE NONPAGED OYNAMIC NEMGRY 


oea9 
e0agd 
GaAs 
O0a9 
60a9 
00a9 
00a9 
0089 
6089 
0049 
aoa9 
0049 
00a9 
60a9 
00as 
00as 
66489 
oGa9 
o0k9 
GOA9 


GOaS 


6049 
90ag 
GGAd 
Goac 
eGac 
agar 
0082 
0084 
6986 
0080 
eac2 
ooce 
eacs 
aacs 
Goce 
eoce 
accr 
0004 
0006 
60068 
6000 
OGE2 
GOES 
GOET 
eces 
aces 
OGes 
QogEe 
Q6F3 
OOF? 
CoFB 
QOrE 
0261 
0102 
6162 
6107 


326 
327 
328 
329 
330 
332 
332 
333 
334 
335 
336 
337 
338 
339 
340 
3461 
342 
343 
364 
345 
346 
3467 
368 
349 
356 
3$1 
352 
333 
354 
335 
336 
357 
3868 
3$9 
369 
361 
362 
363 
364 
365 
366 
367 
3648 
369 
376 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 


Z27THAPR-19BZ O2240569 VAX-1l Nacre VO3-00 
2E-APROLSBZ 155467226 


of 


Pag 
aDBSOSCSTS.SRCIMEMORVALCoMARSY 


oSBTTL ALLOCATE NONPAGED OYNAMIC MENOGRY ; 
36 
2. EXESALONGNPAGED — ALLOCATE NONPAGED OYNANTC NENORY 
: 
3 THES ROUTINE ITS CALLED TO ALLOCATE & BLOCK GF NERORY FROM THE NONPAGED POCL. 
: IF THE BLOCK IS THE SAME SIZE AS AN 170 PACKET, AN ATTEMPT IS RADE TO ALLO- 
3 CATE IT PROM THE LOGKASIDE LIST. 
$ 
: INpUTS: 
3 R1.© SIZE GF BLOCK REQUIRED IN BYTES. 
3 auTPUTS: 
: 
3 RO = LOW GIT CLEAR IF MEMORY IS NOT AVAILABLEQ 
3 26 © LOW SIT SET IF MEMGRY ALLOCATED WITH: 
3 Ri © SIZE GF ALLOCATED BLOCK. 
3 RZ s AOORESS OF ALLOCATED BLOCK. 
eENASL LSS 
2008: srw 208 $888 ALLOCATIGN REQUEST 
EXESALONONPAGED 22 ALLOCATE MONPAGED NENCRY 
ano SMASK RY ROUND SIZE UP TO WKEXT SOUNORY 
sIcL SPASK RI STRUNCATE SIZE BACK TO MULTIPLE 
BEQL 2008 SIE EQt BAD ALLOCATION REQUEST 
CRPL SCIRPSC_LENGTMOMASKOEC*CCMASKID ORL SSIZE GREATER THAN IRF ? 
BLSSU) LRP SEF LSSU, YES 
CReL Ric W°TOCSCL_IRPNIN IS THE SLOCK TOG SMALL? 
sissu sre VES. TRY SMALL PACKETS 
RERGQUE 3¥*TOCSCL_IRPFL 22 REMOVE FIRST PACKET FROR LOOK ASIDE t 
evs LISTCHE IF VS ENPTY LIST 
ROVE OSSS3_NORMAL RO sSEY SUCCESSFUL COMPLETION 
£58 : : 
LAPS cet WTOC SGL_LRPMIN RI SSTZE LESS THAN LAP RININUN ? 
ecrru = var zIF GTRU, YES 
CRPU W°TOCSGL_LEPSIZER2 SSIZE GREATER THON LRP ? 
aissu var 2IF LSSU. YES 
REMQUE IU“ TOCSCL_LAPFL RZ REMOVE FIRST PACEKT FROM LARP LIST 
8YS LISTCHK 3IE VSe EMPTY LIS 
mOVL #SSS_WORMAL,20 
gS8 
LISTCHE: 
ss8u EXESEXTENOPOOL SATTENPT TG EXTEND POOL 
BLS RG,» EXE SALONONPAGED TRETRY LISTS IF SOMETHING EXTENDED 
var? MQVAB wWeEXESCL_NONPAGED,R3 SCET ACORESS CF NONPAGED MEMORY LISTHE 
OSBINT (R320 SOTSABLE INTERRUPTS 
s$8e EXESALLOCATE ALLOCATE BLOCK 
ENBINT TENABLE INTERRUPTS 
BLBC RO, EXTENOCHK SOR IF FAILURE 
RS8 3 
EXTENOCHK: SCHECK FOR POOL EXTENSION 
SISL 62 W*RNMCSCL_NPAGNEXT SET FLAG FOR EXTENSION 
esau EXESEXTENODPOOL TATTEMPT TO EXTEND POCL 
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Listing l-l1: Sample System Routine (EXESALONONPAGED) (Page 2 of 
2) 


Orrarc - OVNAMIC MEMORY ALLOCATION ZT—APR-1982 015460209 VAX—-12 Aacre YO3-90 Page 10 
6601 , ALLOCATE NONPAGED OYNAMIC MERORY 24—-APRH19EZ 1524675326 _DBBOSCSYS. SRCIMEMORTALC.MARS2 C1) 
£ gf $0 €@ 610A 383 8LBS RO EXE SALQNONP AGED SAND REPEAT ALLOCATION ATTEMPT 
6s 6160 384 Rss oY 
0108 385 
0000 °CF $1 ot O10€ 386 SRP: Cup RL, W°LOCSGL_SRPSIZE SCMECK FOR FIT IN SMALL PACKETS 
99 ta 66123 387 setry VAR SRUST USE VARIABLE POSL 
o11s 386 3 CmPL RL, W°OTOCSEL_SRPRTIN SCHECE FOR LOWER BOUND 
0225 389 : BLSSU VaR SMUST USE VARIABLE POCL 
$2 0600°6F oF 0115 390 RENQUE AU“ TOCSCL_ SRPFEL, RZ SREMOVE FIRST PACEKT FROM SRP LIST 
cc 10 «60188 391 8vSs LISTCHE STF VS. EMPTY LIST 
50 62 oo 4 311¢ 392 ROVL OSSS_NORMAL, 26 3 
QS OLiF 393 RS8 : 
0329 394 
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Commonly Referenced System Symbols 


e Many symbols defined in modules SYSCOMMON and SYSPARAM 
e If reference in program, need to link with system symbol table 


e Precede symbol names in program with G* 


Symbols used by most components in executive (EXES...) 


EXESGL_SITESPEC Can be used for any purpose you choose 
EXESGL_ABSTIM System absolute time, in seconds 
EXESGQ SYSTIME System absolute time, in nanoseconds 


EXESGL_NONPAGED+4 Address of first free block of nonpaged pool 


EXESGL_PAGED Address of first free block of paged pool 
EXESGL_SCB Virtual address of system control block 
EXESGL TOQFL Forward link to timer queue elements 


Control region (Pl space) locations (CTLS...). 


CTLSGL PHD Base of window to process header 


I/O data base symbols (IOCS...) 


TOCSGL_IRPBL Backward link to last used I/O request packet 


IOC$GL_MUTEX I/O data base mutex 


Memory management symbols (MMGS...) 
MMGSGL_SBR System page table base register 


MMGSGL_SPTBASE Base address of system page table (virtual) 
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Scheduler data base symbols (SCHS...) 


SCHSGB_ PRI Software priority of CURRENT process 
SCHSGL_CURPCB CURRENT process PCB address 


SCHSGL_PCBVEC Base of address of PCB vector table 
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Commonly Used System Programming Techniques 


e Calling procedures in kernel mode 
_ Requires process context 


= Could be used to implement system service 


e Place code in buffer from non-paged pool 
- Process context not required 


- Code could be invoked by TQE 


Accessible to all processes at same virtual address 


=- Code must be position-independent (PIC) 


e Build AST control block and queue to another process 
=- To gain access to another process's context 
- AST code often part of AST control block 
- Frequently queues AST back to original process when done 


- For example, SGETJPI 


e Write program that gets mapped into a process's address space 
- Alternatives to VMS supplied components (for example): 
e Command language interpreter (Pl space) 


e Application migration executive (P@ space) 


e Write program that runs as separate process 


- For example, symbionts 
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Considerations in Writing System Programs 


e Addressing region implications 


~ -_ 


Process or system wide access 
Speed (S@ address translation faster) 


Paged or non=-paged pool (if in system space) 


e Calling sequence 


JSB/RSB faster than CALL/RET 


No need to worry about stack with CALL/RET 


Need to explicitly save/restore registers with JSB/RSB 


features having access mode implications 
Logical names 

I/O channels 

Mailboxes 

Pages of memory 

e Data structures 


e Virtual address space 


Condition handling routines 
Exit handling routines 
ASTs 


Timer requests 
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DO's in System Programming 


Run in spiviiesed access mode (typically kernel) 
- Write code that is re-entrant 
Write code that is position independent 
Check appropriate assumptions about user 
~ Privileges 
- Quotas 


- Aecess to buffers 


¢ 


Ensure process not deleted at inopportune times (elevate IPL 
to 2) 


- While have mutex 


- While have buffer from non-paged pool 


Check for and respond to all possible error conditions 
- Unlink data structures from queues 
- Deallocate buffers previously allocated 


- Restore modified fields in other data structures 


Always be concerned about synchronization problems 

~ When accesSing data structure 

- When altering IPL 

- When testing specific locations for yalues 

Always RAISE IPL to synchronize access to data structures or 
to report system events 


Generally exit a routine at the same IPL at which it was 
entered 
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DONT's in System Programming 


Avoid exceptions in executive and kernel mode 
- Last chance handler for kernel mode issues fatal BUG CHECK 


- Unhandled executive mode exceptions result in process 
deletion © 


Only call system services at IPL=9 
~ Most system services raise and lower IPL (back to 9) 


e REI to higher IPL will cause reserved operand 
exception 


Use Sservice macros, not CALLx G° EXESservice 

e Services that place a process in wait state make 
assumptions about state of stack (and update return PC) 

Cannot take page faults above IPL 2 


~ Take care to lock code in working set 


Don't overuse limited system resources 


- Memory 


Don't assume anything about current process 

- P@, Pl address space 

~- Access PHD through Pl pointer 

Don't do anything in a privileged mode that can be done in a 
less privileged mode 


Don't stay at an elevated IPL longer than absolutely necessary 
for synchronization 


a ccna nahn se ut 
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Sample System Programs 


e MAKETQE 
_- Allocates two blocks from non-paged pool 
- Places code to execute periodically in first block 
~ Makes second block TQE that invokes code in first block 
- Records address of TQE block in site-specific longword 
- After program run, user can log out 
e Code will still be executed periodically 
e No process overhead involved 


e Independent of CURRENT process 


-EXESGL_SITESPEC:: 
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@ STOPTOQE 
- Removes TOE from queue 
- Deallocates TQE and code block 


- Clears site-specific longword 
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Listing 1-2: MAKETQE Example (Page 1 of 3) 


KETQE 
3 


oooog0sc 
aoacca7s 


9000 
$900 
9000 
$609 
$000 


6090 
0006 
0000 
8000 
6000 
6000 
8660 
69006 
0000 
0069 
6006 
9000 
6060 
8000 
goa 
9000 
6000 
e000 
0000 
6069 
9000 
9900 
6060 
9800 


000F4240 
6oc00006 


COddCOOR FF 86 


Qs 


600000000 


9coocecs 


$906 
86046 
9008 
9008 
9008 
0608 
9008 
eos 
e008 
oacs 
0008 
o0cs 
aoc€ 
Gace 
ooo 
6008 
OOF 
aooF 
9623 
6023 
6023 
9013 
6023 


60000600 


6000 


6000 
0002 


00 ba 90 08 Oe Be be Be 
VOU FUNHABWAHOUN SUN 


He oo pe 
eve 


20 20 CO SO OF SB SO SE CO OO C6 SS SO SE C8 BF C8 OO SO OO 


Nw Hh 
8 Ne 08 


~ 
Co 


fe he he DO 
BwDinwa 


bed Wd 00d 
Ne Oo 


tb Ob eb Gd Ud 
Ck 


wm bed td 
eee 


41 


Tne 
run 


—~ Inserts TQE into tiner queve 


oo ee 


TITLE 
eXOEnt svors 
oe 
AGSTRaCTs 


24—-MAY=1982 16228232 VAY-11 Macre 03-00 
ZT=MAR-198Z 16350253 


Page 1 


WORK SCHUTZNIEKS.SVSPRG. PRIVCODE IMACI) 


WAKETGE — Inserts TQE inte timer queue 


This pregram places a seguent of cade inte nonpaged peel, 
and then establishes a TQE shich invekes that routine 


every tenth ef & second. 


SIDE EFFECTS: 


Ner-paged pool is used te held the TCE. 


exacuteste 


PROGRAMMERS 


Vik Mudznieks  15-"AY-1980 


External syebels 
SI Prose 
sTQeoer 


Local syabels 


MEACER = 12 
OYN_C_MY_TYPE = 120 


Lecal storage 

ePSECT NONSHARED_OATA 
eLONG 1060009109 
oLONnG fy) 


and the cede that 


PIC, NOEXE, LONG 


IPQ definitions 
TOE definitions 


size of header 
ay block type 


delta repeat tine 
ef .1 secends 


This is the code that executes every .1 seconds in response to 


the TOE. 


The tiaer interrupt service routine transfees contrel 
ta the code sith a JS8 instruction at IPLS_TIMER (7). 


Note that 


the code sust be PIC Coesition independent) since it is being COPIED 
to the system buffer Cand executes at srovitrary systes addresses). 


oPy_STart: 


TWCL JuUPOATE 


UPOATES .LONG 8 


COPY_LEN = . = COPY_START 


STARTS 


Prograe entry veint 


ePSECT CooE 
-worRo 0 
SCARRNL_S 


PIC, SHR, NOWRT 


ROUTINALOS 


oe oe 


start of cade te be 
ecepied inte peal 
This is shere the 
eeutine could de 
useful serk 

return control to 
timer interrupt 
service routine 

etll held address of 
lecation to be incresenteod 
size of copied cade 


null entry sask 
enter kernel aode 


MAKETQE 


vor 


62 


oncaeid Narhe enact fe is eae 


WRITING PRIVILEGED CODE 


Listing 1-2: MAKETQE Example (Page 2 of 3) 


-— Inserts TOE inte timer queve. 


Q6 6621 

rs 6012 
e03c 66012 

0014 


06600060 “GF 8S 6014 
os 13 OGLA 

$8 6eedgnce-se 8e 960:2¢ 
66 0023 

0024 

60246 

00246 

0026 

e026 

0626 

0024 

6624 

0624 

60246 

00246 

0626 

06024 

0024 

0024 

6024 

52 17 6e@ 6026 

oe oG2T 
060000000°GE 26 OG2Aa 
0030 

0030 

0036 

6630 

6s $6 €8 0030 

6633 

$a 00ge°sF 3€ 0036 
@4 0638 

90ncacac#r °EF $2 0G 063¢ 
82 7 0043 

0045 

82 $1 80 0045 

a2 78 8F 98 0068 
604c 

$2 00 00646¢ 

60000008 “EF 08 28 OG4E 
0056 

0056 

0056 

9056 

0656 

00S6 

0056 

0056 

00000000 °GF 16 0056 
13° $0 €s oosc 

$0 sé 6G GaSe 
0062 

so oc C2 0062 
00600000°GF 16 0065 


so 


60 
6% 


1683 


HO 08 G6 08 C8 ct C9 C6 OO GO GO OO OO SO OF e8 00 


O8 ce 68 fe 


2085 


0 @8 08 88 ef of oe 


LS6-RAV=L9IBZ 169828232 VAX—-1i Macre VYO3—-50 
ZT—MAR—19EZ 162550553 BGRKSCRUIZNI ERS SYSPRGoPRIVCE 


REY $ all done 

o¥ORG @RERZORIGRSE ORS? $ save registers used 
oENABL LSB $ enable leceal syabel bicetk 
TSTt GPEXESGL ST TESPEC 3 if im uses error 

BEQLU 158 

MOVE OSSS_IVMOOE,20 

RET 


Alleeate poel te held code. Code must be placed in systes 
space so that it can execute in ANY precess context. HEADER extra 
Bytes will be allocated for # header Csince the code block say 
later be deleted by running programs STOPYQE). The progras e#ill 
wse the first cerd in the third lengserd te store the size of 
the bleck. Nermalily the systes uses the first tse longserds 
for feersard and backward links. In this case, the first 
leageerd sill be inerewented each tine the routine specified 

by the YQE executes. The second lengserd sill net be used. 
Nete that [Pt ia raised to IPLS_ASTOEL befere the block of peel 
is allecated. This is done se that the process can net be 
deleted while it has the sddress of the bleck in 8 register 
Cand ne cther recerd of the bleck is maintained elseshere in 
the system). 


MOVE SCOPY_ LENCHEADER Ri 
SETIPL STPLS_ASTOEL 
JS8 G* EXES ALONGNPAGED 


size ef peel needed 
8@ srocess not deleted 
ellecate peel 


@8 ec of 


The above routine destroys RG-23, and returns in R82 the 
address of the sllecated bleck ef peel. 


sties RO 268 preceed if ae orrer 


SETITPQ 86 leeer LPL befere exiting 
MOVZ¥L «#SSS_INSFNEN, RO indicato error 
RET return error cade 


ROVE RZ oUPBATE 
CLRG CRAD0 


save address of block 
cleer leeastion te be vad 
point RZ to 3rd lengserd 
#411 in size field 

f411 im type field anc 
peint RZ ta start ef cod 
seve address of code 
copy cede to buffer 

NOTE =— RO-RS aliered 


novw RIOCRIDS 
MOVZBM SOYN_C_RY_TYPE,CR29@ 


PUSHL =—_ 82 
MOVC3  *COPY_LENsCOPY_START,CR2) 


0 Ce C6 e8 60 @O 26 20 C0 of 66 CO CO 


Allecate s TQE. Nete that the routine sllocates the TQE at 
ITPLS_SYNCH. but returns contrel at IPLESLASTDEL Cs0o process 
cannet be deleted before it can deallecate poel used for TQE). 
Tho routine destreys RG-R4, and returns the address of the TQE 
bleck in R2. 


JS8 G* EXESALLOCTQE 
euss 26,408 
acvt CSP>o,RO 


allocate TQE bleck 
continue if ne error 
else, get cade sddress 
and clean up stack 
acceunt for header 
dealloecate code block 


SusL SHEADER,RO 
J3S8 G*EXESQEANONPAGED 


Oe G0 06 C8 of 08 


WRITING PRIVILEGED CODE 


Listing 1-2: MAKETQE Example (Page 3 of 3) 


RETQE = Inserts TQE into timer queve 14-MAY-1982 16228232 VAX—-11 Macre Y¥03—-00 Page 3 
a : ZI—MAR-19E2Z 16250253 WORKSCHULZNIERS.SYSPRGC. PRIVCOOEINAC1) 
50 6600 °S8F 3¢) «0068 115 MOVZWL | 8«6OSSS_NOSLOT,RO 3 return errer code 
s fs 33 11) «69070 116 are sos 3 and exit - 
Cor2 147 3 
e072 118 $3 Initialize YQE and insert TQE inte queve Cusing systex routine). 
o072 119 The reutine expects the TQE address in 25. [t copies the 
0072 120 3 due time into the TQE, and inserts the TQE in the queue at 
0672 121 3 the apprepriate peint. Since the current tine is sassed 
0072 122 3 Cin 80 and R13 as the due times the TSE should be placed 
6072 123 3 at the head of the queue, and delivered after the next 
0072 1246 3 timer interrupt. 
ooT2 125 3 ; 
0072 126 3 The address of the QE is alse stored in a2 glebal lecstion 
0072 127 3 in the executive reserved fer site-specific use. 
0072 129 = $ 
06 A2 6s 90 G072 2129 6633 nove STQE SC _SSREPT, TQESE_RATYPECRZ) ¢ indicate systen sub. 
COT6 130 ¢ and repeat request 
20 A2 600000000°EF 70 0076 131 Rava OELTA, TOESQ_DELTACR2) 2 set repeat time-.1 sec 
@c a2 iT 4 00 adTE 132 BOVE CSP3¢, TQESL_FPCCR2) 3 starting address ef code? 
0as2 233 3 alse cleans up stack 
90000000 °G# $2 90 «60082 3134 ROVE R2 ,G*EXESGCL SITESPEC 3 save TQE address for 
0089 135 3 progres that. #11) 
oas9 136 $ cancel TQE request 
0089 137 ASSUME IPLS_STNCH EQ IPLS_TINER 
0089 138 LOCK Starts 
0089 139 
0089 140 SETIPL SYRCH 3 accessing system data base 
so e0000000°GF 7 869090 tal nove G*EXESGO_SYSTIME, 20 3 get current abs. tine 
$$ $2 oo 9097 142 move RZ_kS 2 coey TQE address for 
00000000 °GF 16 «0098 143 3$8 G*EXESINSTING 3 queuing reutine 
50 0000 °se 3¢ )6=690a0 146 MOVZwL «= CSS S_NORMAL, 20 3 set success status 
o6as 145 $083 SETIPL #0 3 leeer IPt 
C4 «3048 146 RET 7 all done 
c0ag 147 eSSA8L LSB $ disable lecal syrebel bleck 
00a9 1468 ¢ 
0049 149 By placing the SYNCH Label after the cede that sust execute 
00a9 1§0 3 at IPLS_SYNCH, the page sith tre SETIPAL SYNCH instruction and 
OGAa9 1$1 3 the sage eith the SYNCH Label sre guaranteed to be in the 
$049 1$2 3 process’s sorking set. Since the code sill net span nore 
00a9 1$3 3 zgRan 2 pagese there is no say te have a page fault abeve IPL Ze. 
00a9 184 3 even theugh the pages have net been locked into the serking 
00a9 155 3 set Cuith the SLRWSET systee service). 
Q0A9 156 3 


aoeccacc? 90a9 157 SYNCHS .LONG IPLS _ SYNCH 
00a0 158 LOCK_ENOS 


0040 1$9 ASSUME LOCK ENO-LOCK_STarT LE S22 
eo0ao0 160 
60a0 161 End STaet 


ExSuaROUT 
v03~-0023 


$3 


18 


$2 


21¢ 


38 





WRITING PRIVILEGED CODE 


Listing 1-3: EXESINSTIMQ (from module EXSUBROUT) 


as 30 
eoco°cr 
$2 $3 
G& a2 
$2 $3 
6€ 

a2 $2 
Fi 

06 

a2 $8 
€9 

62 6$ 


- EXECUTIVE SUPPORT SUBROUTINES 


EMSERT ENTRY IN 


8076 
0076 
6076 
C076 
0aT6 
0076 
8076 
G076 
O676 
OoT6 
GO76 
C676 
G076 
O876 
6076 
667s 
COT 
0676 
o076 
6676 
6076 
GO76 
OeTe 
6666 
6060 
00060 
6004 
0609 
e6ec 
6026 
6033 
6625 
0019 
0038 
6020 
06022 
8023 
@026 


323 
31¢ 
315 
326 
317 
328 
319 
320 
32% 
322 
323 
324 
325 
326 
327 
328 
329 
33¢ 
33% 
332 
333 
334 
335 


336. 


337 
338 
339 
346 
341 
342 
3463 
344 
343 
346 
347 
348 
349 
380 


Z2T—APR-1982 01321502 VAX—11 Macre VO3-00 Pag 
TIME DEPENDENT SCHEDULER 24-APRO1L9BZ 15266364 _BOBBOSE SVS. SRCJEXSUBROUT.MARSL 


eSBTTR INSERT ENTRY IN TINE OEPENGENT SCHEDULER QUEUE 


> 


EXESINSTING ~ INSERT ENTRY IN TINE DEPENDENT SCHEDULER QUEUE 
THES ROUTINE ITS CALLED TO INSERT AN ENTRY IN THE TINE DEPENDENT SCHEDULER 
QUEUE. THE ENTRY IS THREADED INTO THE QUEUE ACCORDING TO ITS DUE FIRE. 
THE QUEUE IS ORDERED SUCH THAT THE ROST IMMINENT ENTRIES ARE AT THE FRONT 
OF THE QUEUE. 
INPUTS: 

RO = LOW CROER PART OF EXPIRATION TINE. 

R2 © HIGH GROER PART OF EXPIRATION TIRE. 

RS = AOORESS CF ENTRY TO INSERT Im TIME QUEUE. 

IPQ MUST SE IPLS_TINER. 
ouTPUTSs: 


SPECIFIED ENTRY IS INSERTED INTO THE TINE DEPENDENT SCHEDULER QUEUE 
ACCORDING TS ITS OUE TINE. : 


06 C0 O26 06 CF C8 O68 SO OO 08 OF Of BO OO GS BE EC CF OO 20 OO 


oe PSECT 
EXESTINSTINGSs SENSERT EXTRY IN TIRE QUEUE 
nova RO TQESA_TIMECRS) sSET ABSOLUTE OVE TINE 
MOVAL WOEXESCL_TQFL R23 sGET AGGRESS GF TINE QUEUE LISTHEAS 
NOVEL RZ RZ sCGPY ADDRESS GF TIME QUEVE LISTHEAS 
1ess BOVL TRESL_ TCBLCR2) RZ sGET AOORESS GF NEXT ENTRY 


CRPL R3_RZ sENO CF QUEVE? 
sect 20% siP €Ct Yves 
CmPt RI, TQESQ_TIRESSCR2) SCORPARE NIGH GROER PARTS OF TIRE 
BLSSuU 108 SIF USSU NEW ENTRY MORE I[RMINENT 
SGTRU 208 3ZTF GTRU MEW ENTRY LESS IMMINENT 
Creer RO, TQESA_TIMECRZ) SCOMPARE LOW GROER PART GF TIRE 
BLSSU 10s STB LSSU NEW ENTRY MORE LRRINENT 

208% INSGUE TOESL_TOPLCRS3,TOESL_TQOPLCRZ) SIMSERT NEW ENTRY IN TINE QUEUE 
S68 ; 





. 26 


bf 
re 


a5 
$o 


46 


72 
6F 


$3 


z0 
53 


20 


79 
sé 
2€ 


59 


6€ 
45 


SE 
e¢ 


20 


6E 


$3 


69? 
54 


89 
$8 


4§ 
7$ 


WRITING PRIVILEGED CODE 


Listing 1-4: STOPTQE Example (Page 1 of 2) 


——- Resoves TOE fran tiner queue 


6000 

6060 

0006 

e000 

9000 

e000 

0000 

60090 

6oc0 

0000 

6000 

0000 

8e00 

0669 

6606 

000G 

6000 

6000 

soe 

6000 

6000 

6660 

o6c6 

60060 

660g 

6008 

@coocooc 6696 
o0ceccas c46ce 
9008 

6004 

6ecedaaa 
sacost22° 9009 
60000140° 0004 
age0o 3008 


oacacci1z2°Giseccee” cooa 
oe o€ 61 66 40 OOL8 


26 
49 
4c 


20 
21 


$2 
63 
72 


6$ 
53 
$8 


65 
28 


$4 
68 


‘75 


Sf 
22 


7§ 
3c 


45 
26 
6€ 


poccog1e’ core 
goceocsa’ 0022 
goeoeo1e® o02s 
oococe2n* a6z9 
&C 61 $6 0020 
&C 67 26 0039 
20 30 20 «40045 

0068 
6C 61 56 0068 
20 64 6C 9087 

oose 
goceccae 00SF 
00000023 0063 
00000068° 0067 
cocccose 0068 

cose 
48 6t 40 908€ 
60 61 72 0098 
65 65 62 0086 
coocoozt coaF 

ooar 


+ oO pt OO 
Wn? OW Ot UO Ut he 


0 pO Do ee pe pe 
OOayrnen 


ene 
eo 


41 
42 


43 
a6 
45 
46 
4? 
48 
49 


$0 
$1 


eTITLE STOPTCE -- Removes TOE fros tiner 
eIDENT sV¥OL/ 


° 
e 


ABSTARCTS 
This prograa displays the contents of the 


TQE request, and deallecates the block of 
centain the TCE routine. 


SIOE EFFECTS: 
Nen-paged peel is returned te the systen. 
PROGRAMMERS 


Vile Muiznieks L5—MAY~1980 


02 C6 C8 08 C0 OF C8 C6 OO 00 Be Of 08 Sh C8 Cf SO OO 08 06 


External syebels 
st PrLoEF 
sTQEDEF 


Leeal syabels 
HEADER 2 12 
LOOP_CNT = 3 


s 
H Leesl storage 

oPSECT NGNSHARED_OATA PTC. NOEXE, LONG 
LRWSETS .£00RESS STARY_LOCK 


eADORESS ENO_LOCK 
TTCHANS .WORO 8 
TTs eASCID /SYSSCOMMANDS 


cre: oL OMG STRLENO = STRING 
eAGORESS STRING 
CTRi: oL ONG STRLLENO = STR 
eAOOCRESS STR 
STRs eASTIT Svalue in EXESGL_SITESPEC © I1xL8 


26 08 06 we of 


STRY_ENOS 

STRING: .ASCII Value in field = !xXL2 3 

STR_LENOS 

FAQLENS LONG 3 

aurs o LONG 35 3 
-ADORESS BUFF 

SUFES oSUK8 3$ 


SAO_MESSAGES : 
eASCII /SMAKETQE program has not seen run. 


SADLSIZE = . = SAD_MESSAGE 


ioe 


L4—MAV1982 16528243 VAX-11 Macro V03-00 Page 1 
ZT—-MAROLIBZ 165305346 WORKSCMUTIZNIEKS.SYSPRG.PRIVCODEISTC1) 


Lecation being updated 


by the routine specified in a TOE C(thriced. It then cancels the 


pool heing used tes 


IP definitions 
TGE definitions 


Reader size fer cede dslock 
lees. counter 


starting address 

ending address 

TT channel 

descrister fee tereinal 


$#A40 control string 
descriotor 

$#4G control string 
deseriptor 

converts to hexadecinal 


converts to hexadecinal 
$FAC output Length 
Gutput string desc. 


Actual output string 
used in case MAKETQE 


4 3 not yet run 





WRITING PRIVILEGED CODE 


Listing 1-4: STOPTQE Example (Page 2 of 2) 


STOPTOE ~- Rowoves TOE frem timer queve VSoMAYO1982 162328543 VAX~-11 Macre V¥03-00 
vos ZT—BAR—1982.16530836 WORKS CMUT-ZNIEKRS.SYSPRG. PRIVCE 
OGAF $23 Entry point fer reutine 
00000000 $3 oPSECT COOE PICe SHR, NOURT 
2 6606 0900 $e STarts .wORD 0 8 avull entry sask 
6062 $s SCMRRANL_S RGUTINELGS $ enter kernel sede 
602% $63 Nete that mest of the serk being dene in kernel mode by this 
6011 s7 3 oxzaaple really could be dene in user node There is not such 
oot1 sé 3 Reed te enter kernel sode befero label START LOCK. 
04 O011 $9 RET 3 a21 dene 
@O7C 0032 60 1688 WORD ®NCRZ RI RS RS ERED 3 save registers used 
6014 6i SLKRWSET_S INACRELKUSET 3 lock pages in sorking set 
6i $0 ES 0025 62 Buss ROSS 3 proceed on success 
64 0628 63 RET ¢ step on errer 
0029 64 1585 SASSIGNLS OEVKAMBTT CHANZTTCHAN 3 get channel tea tersinal 
; 35 $0 €9 0dOO3€ 6$ eusac RO,258 3 exit on errer 
$2 00060000°GF 06 00641 66 2082 ROVL G*EXESGL_SITESPEC RZ $ get TQE address 
6048 67 3 &f negatives systes addr« 
37 219 004668 68 eiss 36s 3 stop if not negative 
0044 69 SOUTPUT CHANSTTCHAN LENG THESEAD_SIZE, SUFFERS BAD MESSAGE 
OG6F 70 SOASSGN_S CKANSTTCKAN 3 deassign terrninal channe] 
64 0078 Tt rer : 3 all dane 
0a03 31 OG7E 72 258% SR¥ ERAOR ¢ selwe 8L8C byte displaces 
$é ec a2 oc 0981 73 «3685 ROVL TRESL, FPCCRZ) RE $ get code eddress 
56 oc c2 9085 74 : Susr2 SMEROER.RE 3 peint te vadate location 
5% 03 $a 0088 75 MOVZ8L SLOOP _CNT. RS 3 set loop count 
6088 76 SFAG_S CTRSTRACTRI, OUTIL ENB FAGLEN,@ 3 format EXESGL SITESPEC 
eoss 1? OUTBUFSOUT ,PL=e2 3 for debugging 
os 30 Eo 6646 78 eLac 8G.258 $ test for errors 
00a9 79 SOUTPUT CHAN@TTCHAN LENGTHBEAGLEN CBUPFERSAUFF 5 print value 
ag SE E9 06002 #0 8usc RO.283 3 test for errors 
coos 81 6083 SFRO_S CTRSTRECTR,OUTILENSFAOLEN,@= 2 format counter ehich 
660s $2 GUT Bur eOUT , PL BC RSE) 3 changes every .1 seconds 
$8 $0 £9 OOoF9 83 sisc RO.258 3 check for error 
00f3 84 SGUTPUT CHANBSTTCNHAN,LENGTHSFACLEN, BUFFERSGUFF $ display ceunter 
35 $0 €e 013¢ 8$ sisc RO, ERRGR 3 cheek for error 
33 $4 FS O118 86 SO8GTR R4,408 2 lece a fee tines 
8122 @7? START LOCKS 3 code eust be leeked in 
8122 $6 3 serking set se ne pege 
8222 89 3 faults abeve IPL 2 
6122 90 SETYPL el PLS_ SYNCH $ Paise IPt te syneh 
se 62 oF a125 91 REMQUE (€(R2),20 3 Femeve TQE free queve 
acaccedce *GF 16 «0128 92 JS8 G*EXESOEANGNPAGED 3 deallocate TRE 
so $6 OG 812€ 33 mOVL 26,2 3 get address of cade dice) 
Coggdads GF 16 «©9131 96 J$8 G*EXESOEANONPAGED 3 deallocate code biock 
oo00acacno “GF 0% 0137 95 CLRE G*EXESGL_ SITESPEC 3 cleanm-up location se thi: 
0330 96 3 progeas cannot be rerun 
0130 97 3 until MAKETQE rerun 
01396 98 SETIPL 386 3 enable interrupts 
0240 99 ENO_LOCKS 2 end of locked deen code 
0140 1090 SBASSGN_S CHANSTTCHAN $ deassign terninal channe: 
$6 0000° SF 3G O16€ 101 MOVZWE 8 68SSS_ NORMAL, RO $ return success status 
0@ 0153 162 RET 3 a11 done 
$6 so oa 0154 103 ERRORS ROVE ROeRE 3 save exit status code 
0157 104 SOASSGN_S CHANSTTCHAN 3 deassign terainal channe 
50 56 oc 0165 16s ROVE RGQRO $ restore exit status code 
606 0268 106 Ret 3 all dene 
0169 107 oEND Start 


100 
200 
300 
400 
500 
600 
700 
soo 
900 

1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2600 


- 2800 


2600 


$1 


$i 
$f 


PARAARAARARHAARAA 
- 


st 
$1 
$t 
$ 
$ 
$ 
t 


s 
$ 
$ 
$ 
$ 
$ 


WRITING PRIVILEGED CODE 
Listing 1-5: MAKETQE.>COM 


MARETGE.CONM 


This command procedure assenbles and links the files 
Reeded for the example that duilds a TQE. 


The debugger is included as sell. 
SET VERIFY 
MAC/LISTSENABLESDBG MAKETGE > SYSSLISRARYSLIS/LIS 
LINK/MAP/FULL/CEBUG MAKRETOS, SYSSSYSTEMSSTS.STS/SELECTIVE 
MAC/LIST STOPTQE © SYSSULIBRARYSLIB/LIB 
LINK/MAPJEULL STOPTQE, SYSSSYSTEMSSTS.STE/SSELECTIVE 
The TOEDEF.O8J file can be useful sehen debugging sith 
SGA, since it can be read ine and used te FORMAT the 
TQ! block. 
MAC TQELCEF o SYSSLIBRARYSLIB/L IS 
Prepare far running/debugging the progrses 


SET PROCESS/PORIVaCCRKRNL) 
QOEFINE LIBSOCEBUG OCELTA 


SET WQVERTEY 


SAMPLE RUN 


6 SET PROCESS /PRIVe( CHKRNL) 
t 





$ RUN/NODESUG MAKETOE 


$ 


% RUN/NODEBUG MAKETOE 


ZSYSTEM-F<IVMOQDE> invalid aode for requested function 


% RUN/NODEBUG STOPTOE 


Velue in EXESGL.SITESPEC = 80112FE0 
Value in field = 900000D9 


Velue 
Velue 


in field = 0000000C 
in field = 00000ODE 


$ RUN/NODEBUG STOPTOE 
MAKETGE presrae nas not been run. 


$ 


% RUN/NODEBUG MAKETQE 


% RUN/NODEBUG STOPTQE 

Value in EXESGL-SITESPEC = 80110760 
Value in field = 00000047 

Value in field = 00000049 


$ 


Value in field = 0000004C 


1-33 





WRITING PRIVILEGED CODE 


SDA Command Summary 


Command Function 

COPY file Copies the dump file 

DEFINE sym = exp Defines symbols and their values 
EVALUATE exp Performs computations 

EXAMINE loc[{:loc] Examines memory locations 


loc[;len] 
/P@ /P1l /SYSTEM /ALL /INSTRUCTION 


EXIT Exits from the display or from SDA 
FORMAT . Formats data blocks 

/TYPE=block 

HELP Prints help files 

READ file Copies object module symbols 
REPEAT or <ESC> Repeats the last command 

SET OUTPUT file ' Directs output to file 
SET PROCESS name Sets process context to specific process 
/TNDEX=nn /SYSTEM 

SHOW CRASH Displays crash information . 

SHOW DEVICE devnam Displays I/0 data base structures 
SHOW PAGE TABLE Displays system page table 

/GLOBAL /SYSTEM /ALL 

SHOW PFN DATA Displays the PFN data base 


/FREE /MODIFIED /BAD 

/SYSTEM /ALL 

SHOW POOL Displays dynamic memory 

/IRP /NONPAGED /PAGED 

/SUMMARY /ALL 

SHOW PROCESS name Displays specific process information 
/INDEX=nn /SYSTEM 

other qualifiers 

SHOW STACK Displays process/interrupt stacks 
/INTERRUPT /KERNEL 

/EXECUTIVE /USER 

/SUPERVISOR /ALL 


SHOW SUMMARY Displays a summary of all processes 
SHOW SYMBOL symbol Displays the symbol table 
/ALL 


Operators +=- * / @ (shift) 


WRITING PRIVILEGED CODE 


Symbols ‘ Current location 
G 8A9GGAHB (hex) 
H JFFE@@@29 (hex): 
- R@-R1l General registers 
AP Argument pointer 
FP Frame pointer 


KSP, ESP, SSP, USP Stack pointers 
PXBR, PxLR Base/Length registers 
PC Program counter 

PSL Processor status longword 





WRITING PRIVILEGED CODE 


Debugger Comparison 


e Symbolic Debugger used only for user node code 
-@ XDELTA/DELTA used for any access mode code 

- Same command syntax 

- No visible prompt 

- Non-symbolic 


- Only error message is EH? 


XDELTA DELTA 


<= amp an =P om aD <=) CD cD ae ac 


Debug operating system Debug user images 
or device drivers 


Used only at console Used from any terminal 

Can debug code at any Can only debug code at IPL=9 
IPL 

Must be specifically _ Assembled (compiled) and linked 
requested on boot with image 


Included at run time using 
SDEFINE LIBSDEBUG DELTA 


1-36 


WRITING PRIVILEGED CODE 


Using PATCH 


e When to use PATCH 


On executable or shareable image files 
Source program not available 


Takes too long to reassemble and relink large application 


e When NOT to use patch 


On DIGITAL-supplied software (invalidates warranty) 


e Inputs to PATCH 


Name of image file to be modified 
PATCH commands to be executed 


@ From terminal 


@ From command procedure 


e Outputs from PATCH 


Journal file, containing a record of PATCH session 
Updated image file, if issue UPDATE command 


Command procedure containing PATCH commands used, if issue 
CREATE command 


e General PATCH use 


Invoke PATCH (S$ PATCH) 

SET ECO level (recommended) 

Issue PATCH commands to change image file 
Apply patches with UPDATE command 


Exit from PATCH 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


INTRODUCTION 


VAX/VMS provides a set of more than 1#9 system services and RMS 
services, implemented as procedures, for non-privileged users to 
perform privileged functions. Most of the system services execute 
in kernel mode, while the RMS services execute in executive mode. 
User-written system services are a set of site-specific procedures 
that perform privileged functions for non=-privileged users, to 
achieve some site-specific purpose. 


This module examines how user-written system services are written, 
hew they can be called by non-privileged users, and how they can 
be integrated into the operating system. The discussion will 
focus on the use of various template files provided on the system. 
These files can be modified to incorporate site-specific 
user-written system services. 


Throughout the discussion, many of the issues and techniques 
described in the previous module related to system programming 
will be applied to specific examples. 


WRITING A USER-WRITTEN SYSTEM SERVICE 
OBJECTIVES 


e@ Assemble, link, and install a user-written system service. 


e Modify the system-supplied dispatcher to include 
; user-written system service. : 


e Write a user-written system service. 


e Write a T-BIT dispatcher. 


RESOURCES 


VAX/VMS Real-Time User's Guide 
VAX-11 Linker Reference Manual 


USS* files in SYSSEXAMPLES: 





WRITING A USER-WRITTEN SYSTEM SERVICE 


Components of User-Written System Services 


e Provided in SYSSEXAMPLES:USSDISP.MAR 
-e Transfer vector (system-supplied) 


- Contains all entry points for system services 
- Located at lowest virtual address in shareable image 


e Allows revision of system service without relinkinc 
images that use it 


- Built by DEFINE SERVICE macro 
6 Privileged library vector (system-supplied) 


~- In PSECT with VEC attribute 

- Contains offsets to executive and kernel mode dispatchers 

- Contains offset to routine that Should be called at image 
rundown time 

- Contains information for validation purposes (e.g., systen 
version number) 

- Used by image activator to connect system service to VMS 
change mode dispatcher 


e Kernel and executive mode dispatchers (system-supplied) 
- Called by VMS change mode dispatcher 
- Decide whether system service valid 


- Verify correct number of arguments for service 
=- Transfer control to system service code 


e System service code (user-supplied) 


- Usually written in MACRO or BLISS 
~ High level languages not recommended, since sometimes: 


@e Require run time support routines 
@e Make excessive use of stack 
e Unable to generate PIC code 


e Rundown routine (user-supplied, optional) 


- Entered in kernel mode with JSB 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Review of User-Written System Service Dispatching 


SYSTEM SPACE 


CHANGE MODE 
DISPATCHER 


EXESCMODxxxx:: 
1) BUILD CALL FRAME 
2) CHECK ARGUMENT 
LIST 
CASEW 
: e 


e 
OFFSETS 
e 


& 

e 
JS8 
PROCESS ILLEGAL 
CHANGE MODE CODES 


COMMON EXIT PATH 
SRVEXIT: 
e 





TK-9166 


@ Mulitple dispatchers can be linked to image 
e Dispatchers are searched in order linked 
e Negative CHMx codes identify user-written system services 


e@ Duplicate CHMx codes allowed, only first occurrence recognized 
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Building a User-Written System Service 


® Start with SYSSEXAMPLES: USSDISP.MAR 


‘ Edit out unneeded portions, such as: 


@e Executive mode dispatcher 
e Example services and their definitions 


e Sample rundown routine 


Add DEFINE_SERVICE entry for each new system service 
Add code (if MACRO) for each system service 


Maybe change base value of -1924 for KCODE_ BASE (9! 
ECODE BASE) to avoid conflicts with other services 


e Assembling user-written system service dispatcher file 


Need to include SYSSLIBRARY:LIB/LIB 


System supplied dispatcher has .LIBRARY directive 


e Linking user-written system service dispatcher file 


Must use /PROTECT qualifier so all image sections hav: 
EXEC mode page ownership 


Create separate clusters for transfer vector 
Do not include run-time library (/NOSYSSHR) 
Usually include system symbol table 


Can edit SYSSEXAMPLES: USSLNK.COM 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Building a User-Written System Service 


Linking programs that call user-written system services 


Must include OPTIONS file 


OPTIONS file must specify name of file containing 
user-written system service with /SHARE qualifier 


e Installing system service 


Before programs can be run, system service file must be 
INSTALLed 


Allows image activator to connect system service to change 
mode dispatchers 


Copy system service file to SYSSSHARE directory 


INSTALL file /SHARE/PROTECT from SYSSSHARE directory 


‘SER SYS OLS 
82-000 
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Listing 2-1: System Supplied Dispatcher File (Page 1 of 12) 
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C360 
04909 
69c6 
6609 
0000 
6900 
006e 
6000 
00¢c0 
6009 
6909 
6009 
gece 
6609 
6000 
e000 
6066 
0006 
0406 
6806 
8668 
ocee 
6908 
ooea 
eeeo 
6660 
eoqs 
6000 
0006 
e600 
6eco0 
00695 
Ca09 
8686 
6966 
6009 
9666 
e0g0 
60c3 
e000 
6600 
6860 
066s 
6c60 
oao6 
oces 
0660 
a006 
6666 
e600 
0000 
6600 
00c0 
0660 
6669 
6000 
0060 


BOS Mm & wh ty 0% 


ee eneueseuneduneeunuseeeuy 
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27 APRO1L9B2Z 05326569 SYSSSYSROGTSESYSHLP.EXAMP! 


eo TITLE USER _SYS_OISP - Example of user system service dispaotche: 
oIDENT °¥O2~-000° 


SSE SVVSIVSE SH VES BV SK SS KS VE CS SS EK SE SE SCKLE GS LF SERS VS LS SSE VS SSESRKVUBLSKVSS KE: 


COPYRIGHT Ce) 1980 
SY CIGTTAL EQUIPMENT CORPORATION, BAYNARO, MASS. 


THIS SOF TWAPE TS FURNISHED UNDER A LICENSE ANDO MAY BE USED AND COPY 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCK LICENSE ANG WITH T 
TNCLUSIGN OF THE ASOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH 
COPTES TKEREGF MAY NOT SE PROVIDED OR GTHERWISE MADE AVAILABLE TG A 
OT4ER PERSON. NG TITLE TO AND OWNERSHIP GCF THE SOFTWARE IS WERE 
TRANSFERRED. 


THE INCORPATION Ih THIS SOFTWARE TS SUBJECT TO CKANGE WITHOUT NOTT 
anG SMOULB NOT 8€ CONSTRUED AS A COMMITMENT BY OIGITAL EQUIPME 
CORPORATION. 


OLGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELYABILITY OF f 
SOFTWARE ON EQGUIPPENT WHICH IS NOT SUPPLIED BY OLGITAL. 


SREOVSVSSSTTSO VESSSSSS SESS SLES TLLSSRSS OE CSESKSESSESSVESSEALSSESOSVSESESLAEARS 


Sscility: Sxsmele of User Heitten System Services 


ee 
* AbStraets 
This sedule centzains en exnsagle dispatcher fer user eritten 
system services along eith several sample services and s user 
Purdesm exasole. [% is a tenplate intend te serve as the starti 
soint fee implementing a privileged shareable image cantaining y 
- germ services. When used as 8 teeplate, the definitions and code 
fee the sample services should be roeneveds 
Overviews 


User eritten syztes services 2Pe cerntained in privileged sharesth 
images thet are linked inte user progras irages in exsetly the 
Zane fsehien as any sharezble image. The creatian and installat 
of 8 privileged, shareeble image is slightly different from that 
of an ordinary sharesble inage. These differences ares 


le A vector defining the entry points and providing othe 
control inferwaetion to the image activatcr. This vee 
is a the lewsest address in an inage section vith the 
attributo. 


Ze TRe shareable image is linked sith the /PROTECT cotia 
that merks all of the image sections so thst they sil 
peetected and given EXEC sede cenershio by the inage 
activator. 


3. The shareable image MUST be installed /SHARE /PROTECT 
@eith the INSTALL utility in order for the image activ 
to connect the srivileged shareable image to the chan 
disnatchers. 
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Listing 2-1: System Supplied Dispatcher File (Page 2 of 12) 
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0009 $8 
6000 59 
0000 60 
0000 61 
0006 62 
eco 63 
6000 64 
e000 6s 
0000 66 
9000 6? 
0000 68 
e000 69 
0000 70 
6000 71 
0000 72 
0000 73 
0000 1% 
600 7S 
0000 16 
0000 17 
0000 78 
0000 79 
0000 20 
0000 $1 
ooo 02 
occ 83 
e600 a4 
6600 as 
9000 86 
00060 87 
0000 8 
0006 89 
0000 96 
oaco 91 
0000 92 
ToT) 93 
0000 96 
0000 95 
2000 96 
9000 q7 
0000 98 
c000 99 
coco §=_: 100 
coco) 3=— 101 
0c00 36 102 
0000 =: 1103 
0s00)6=—104 
0000 = 10 
on00 105 
e000 )8= 107 
0000 =: 108 
e000 §8=— 109 


1. 


26 


30 


so 


Se 


st 


st 


OO OO OO 68 06 46 BO C0 00 SO On CO OH oO OF OO C8 C6 6 OF OF 20 08 €O SO oO OO 08 26 29 Of C8 86 GF SO OO HO 28 OF OF ce Be OO OF 06 C6 GO 28 oO OF OF OF 
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A privileged shareable imsge inplementing user written system services 
is coeprised of the fallesing sajor conponents: 


A transfer vecter containing ali ef the entry peints and 
collecting them at the lowest virtual address in the shareable 
image. This ferwalisa enables revision of the shareable 

image eitheut necessitating the relinking of images that 

use it. 


A Privileged Libeary Vecter in s PSECT with the VEC attribute 
that describes the entry peints for dispatching EXEC and 
RERNEL mode services along with validation inforsation. 


A dispatcher for kernel sede services. This cede sill 
be called by the YRS change sede dispatcher shen it 
fails te recegnize a kernel sode service request. 


& dispatcher fer cnecutive sede services. This code will 
be called by the VMS change mode dispatcher when it fails 
te recegnize an executive sode service request. 


Service routines te perfors the various services. 


The first feur cospenents are contained in this teaplate and are 
most casily iaplemented in MACRO, shile the service reutines can 
Be implemented in SLISS or MACRO. Other languages may be usable 
but are net recommended — particularily if they require runtize 
suecpert reutines or are extravagant in their use of stack or are 
unable to generate PIC codes 
This example is position-independent CPIC) and it is goed practice 
te ispleeent shareable inages this say shenever possible. 

Link Command File Exanole: 


st Command file to link User System Service exasole. 

$ LINK /PROTECT/NOSTS SHR/SHARESUSS/NAPRUSS/FULL STSSINPUT/OPTIONS 
! Getions file for the Link of User System Service exanple. 
SYSSSVSTERSSYS.STS/SELECTIVE 

Create & separate cluster for the transfer vector. 


CLUS TERSTRANSFER VECTOR. oo SVSSOLTSK SC IVSSOLSP 
{ 


GSMATCH@LEQUAL 261 baseaddy PFE 
- y, 


mA MIS 
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Listing 2-1: System Supplied Dispatcher File (Page 3 of 12) 


‘SER_SYS_OIS® 
02-000 


6000 
63606 
6000 
e066 
8000 
6606 
0066 
6006 
6060 
0609 
coco 
0000 
6000 
cad0 
6900 
6900 
6909 
6960 
6660 
cooe 
6660 
6ac6 
68e9 
Go6G 
c90a 
0006 
6066 
6606 
0000 
6069 
6006 
co60 
0969 
6606 
€eea 
6068 
6069 
6060 
6006 
6900 
6000 
0066 
oocs 
6000 
6006 
eoe0 
@a00 
6000 
6esa 
6000 
060d 
6000 
60006 
60690 
00006 
00060 
60000306 0000 


wit 
122 
123 
126 
115 
136 
127 
129 
129 
126 
121 
122 
123 
126 
12$ 
126 
127 
128 
129 
136 
43% 
132 
133 
134 
135 
134 
13? 
138 
137 
266 
141 
142 
243 
166 
14§ 
146 
14T 
168 
149 
186 
181i 
152 
133 
1S6 
ss 
156 
157 
1S8 
139 
1606 
161i 
162 
163 
164 
165 
166 
167 
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VAX-11 Macro YO3<00 
27©APRO1982 05226249 SYSSSYSROOTSCSYSHLP. EXAMPLE 


eS$3TTL Declaretions and Equates 


Include Files 


LIBRARY “SVSELIGRARYSLIBOMLB® acre librery for systee structu 


definitions 


@c 00 


Meero Definitions 


DEFINE SERVICE ~- A macre to wake the approoriate entries in severa 
Gifferent PSECTs required to define an EXEC ar KE 
moda service. These include the transfor vectors 
the case table fer dispatching, sand a table canta 
the number of regquired seguaeents. 


DEFINE, SERVICE Name otuabor of, Argquaents, Kode 


cMACRO DEFINE SERVICE NAME, NARGSE pMODESKE RHEL 
oPSECT SBSTRENSFER, VECTOR PAGESNOWRT EXE, PIC 
eS4LIGR QUAD Align entry points far speed and 


e 
o TRANSFER NBME 3 Define nemo as universal syabol 
oMaSK NA BE 2 Use entry nsask defined in nain rv 
oT TON “ODE, KERNEL : 
CK OCKCOCE GASECKERNEL COUNTERS 3 Change te kernel rede and « 
RET : $ Retuen 


RERNEL COUNTER @KERNEL COUNTERS? ¢ Advance counter 


oPSECT KERNEL _ NARGOSYTE NOURY ,EXE FIC 

BYTE NARG 3 Gefine number of reauired arguae 
ePSECT USER _KERNEL_OTSPL -SVTE NGWRT, EXE, PIC 

o¥ORG ZONAME—KCASE_ BASE 3 Make ontry in kernel wmode CASE t 
o TRF 

Cree #<€SCOBS _SASESEXEC COUNTERS 3 Change te executive nede and 
RET 3 Retuer 

EXEC COUNTERSEXEC COUNTERS $ Adwance counter 

oPSECT EXEC _NARG, BYTE MGURT, EXE, PIC 

oSVTE NARG 3 Gefine nuaber of required argune 
oPSECT USER_LEXEC_OLSPLLSYTE -NOWRT EXE, PIC 

o¥GRG ZeoNAME-ECASE BASE ¢ Make entry in exec nede CASE tab 
oENOC : 

oENOR DEFINE SERVICE 3 


Eauated Syabols 


SPHODEF 3 Gefine precess header offsets 
SPLYDEF 3 Gefine PLY effsets and values 
SPROEF 2 Define processor register nurnber 


Initialize counters fee change sode dispatching codes 


EQNEL_ COUNTERSO 3 Keenel code counter 
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Listing 2-1: System Supplied Dispatcher File (Page 4 of 12) 


'S_OTse - Szamole of user system service dispate 27°-MAY—1982 10821253 VAX-11 Macrae V¥03-00 Page 4 


3 Seclarations and Equates ZT—APR-1982 85226249 SYSSSYSROOTSCSYSHLP EXAMPLESTJUSSOLC1) 
cococoed 9009 169 EXEC COUNTERS 2 Exec code counter 
eoco 169 
coca 170 3 
o000 171: 3 Gen Storage 
0009 172 3 
ooceccod 173 oPSECT KERNEL _NARG SITE MOWRY, EXE, PIC 
e000 176 KERNEL _NARGS . 3 Base of byte table containing the 
9000 175 3 nusber of required arguraents. 
accoceae 176 oPSECT EXEC _NARGOBYTE NOWURT EXE, PLC 
0000 L7T EXEC _NARGS $ Base of byte table cantaining the 
6960 178 3 ruaber of reauired arguaents. 


nN 
! 


12 
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Listing 2-1: System Supplied Dispatcher File (Page 5 of 12) 


JSER_SYS_OLSP © Exesple of user systee service dispatc. L7-MAV=1982 102921353 VAX=-11 Maero V¥O3-00 

¥02-000 Teansfer Vector and Services Definitions 27-APR-1982 05526549 SYSSSYSROOTSCSYSHLP EXAMPLE 
6006 186 eoSSTTL Transfer Vector and Service Jefinitions 
0000 281 seo 
0006 182 : The use of transfer vocters te effoet entry te the user eritten systes s 
0009 183 3 enables some uodating ef the sharcable image containing thee sithaut nec 
0666 184 3 & remlink ef all pregrsms that cell thea. The PSECT containinng the tra 
6060 18S $ veetor will be pesitioned st the losest virtual address in the sharesbic 
6600 186 = and se long as the transfer vocter is net re-erdered, prograas linked si 
e000 187 3 ene version ef the shareable imege sill continue to sork with the next. 
60690 188 ¢ 
9e00 189 3 Thus as additions! services are added to a privileged shareable image, ¢ 
6900 196 $ definitions sheuld be added te the end ef the fellewsing List te ensure t 
6600 191 3 prograes using previous versions ef it sill net need te be relinked. 
ec0e 292 3 Te completely aweid relinking existing pregrarms the size ef the privileg 
0666 193 3 shareable isage sust not change se seme padding sill be required te prov 
6360 196 $ the eppeetunity fer future gresth. 
0606 19S goo 
60ce 196 BEFINE SERVICE USER_GET_TODORAI KERNEL $ Service te get value of 
eGC2. 197 ; 3 ef day register 
6662 398 BEPIME_ SERVICE USER _SET_ PPC o2 KRERNEL 8 Services te set value of 
60646 199 $ default pagefault clust 
6066 200 GEPINE SERVICE USER_NULL» 0, EXEC ¢ Mull exee service 
0662 203 F 
6062 202 ¢ 
GGGZz 263 3 Tke base values used to generste the dispatching codes should be negativ 
8002 204 3 user services and cust be chosen to sveid overlap with any sther privile 
0662 205 $ shareable images that eill be used concurrently. Their definition is 
0062 266 $ deferred te this peint in the sssembly te cause their use in the precedi 
9062 207 3 meers eslis te be fervard references that guarantee the size of the chan 
0662 283 3 wmede instructions te be four bytes. This satisfies an assuaption that i 
0002 209 3 made by for services that have to watt and be retried. The °C for retry 
$e62 210 3 the change sede instruction that invekes the service is assumed ta be 4 
C662 221 3 Less than that saved in the change nede cxcestion frame. Of courses, the 
6062 212 & seevices reutine deterwines shother this is pessible. 
6602 213 3: 

PREESEECGG 6002 226 KCODE_ SASE em O26 $ Bese CHRK cede value fer these 3 
FEESFERGG 6662 228 ECODE SASE C1626 3 


Bese CHRE code value for these s 
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Listing 2-1: System Supplied Dispatcher File (Page 6 of 12) 


'S.OrsP - Example of user system service dispate LT-MAY-1982 165121353 VAX—-11 Macro Y03-00 Page 6 
) Change Mode Dispatcher Vector Slock ZT—APR-1982 05326249 SYSSSYSROOTSCSYSHLP.EXAMPLESIUSSOICL) 
6002 217 eS8TTL Change Mede Dispatcher Vector Slack 
06002 218 soe : 
0002 219 3 Tris vector is used by the image activator te cennect the privileged shareable 
6002 220 3 image to the VMS change meade dispatcher. The offsets in the vector sre self- 
0062 222 $ relative te enable the canstruction ef position independent images. The systen 
0002 222 & version number sill be used by the image activater te verify thet this shareable 
0002 223 $ dmage was Linked sith the syrabdol table for the current systes. 
0002 224 3 
0002 225 ¢ Change Meade VYecter Format 
0002 226 3: 
0002 228 ¢ ! Vector Type Code 1 PLYSL_TYPE 
0002 229 3 { CPLYSC_TrP_cmuaod) ! 
e0e2 231 3 i] Systes Version Muaber { PLVSL_ VERSION 
9002 232 3 i] CSYSSK_ VERS TON) 1 
6002 223 3 000 88 Ge op On oe Oe fe 288 OOS ee away comers & 
e082 234 3 i] Reenel Bede Oispatcher Offset 1 PLYSL_KERNEL 
Qo0c? 235 3 i] ! 
0902 237 3 $ Exec Mede Entry Offset 1 PLVSL_EXEC 
0062 228 3 { { 
6502 260 ¢ { User Rundosr Service Offset 1 " PLYSL_USRUNOWN 
en62 Zo ¢ 1 1 
6002 262 3 DP DP AD HOD HAD ET AAD DED NOD AER EY PADD ATE DD IATL ADE SED DAE SD SED aM AED One > 
0502 243 3 ! Reserved ! 
8062 266 3 i] : t 
6 802 26 5 7 DDD DS GE DA EDAD CTD CEE BAD CP 6 DOL EET ey OD AE ED ten DS COD A ED 
0002 246 ¢ q Res Dispatcher Offset t PLY SL_RMS 
o0G2 267 3 ! 1 
00602 248 5 DDD AE OED ED CO ED APE TD OES ED CD EN CD aw Cues ana ae wat ahead aia 
c3¢2 2467 : { Address Check ! PLVSL_CHECK 
g0¢2 280 3 1 1 
00c2 252 3 
eoce2 283.3 ; 
03690000 286 oPSECT USER_SERVICES. PAGE, VEC PTC eNGURT, EXE 
eoc? 2$5 
66e90dsi 6009 226 oL ONG PLYSC_TYP_CuOD ¢ Set type of vector to change sede dispatch 
ooecccnge’ 0004 27 eL ANG SY¥SS&_VERSION & Ldentify system versian 
oagdescs’ 6003 258 «LONG RERNEL _OLTSPATCK=. $ Offset to kernel node dispatcher 
eacaecese1° caoc 289 eo LANG Ex€C_CrsPatcue. ¢ Offset to executive mode dispatcher 
FESFFEEQ? COLD 265 o LONG USER _RUNOCCWN-. 3 Offset to user rundasn service 
aoeeceas e616 261 oe LONG to] > Reserved. 
eceaceca e678 262 LONG 9 = Ne RRS disostcher 
eo00gs5s0 eo1¢ 263 o LING 8 3 Address check - PIC image 
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SEw CoPSlOTS® 
02-063 


58 


$8 


Si 


$2 


8300°e8F 


6660°S8F 


6660 CO 


#8 


C2 $2 
#3 


GdGG°CFei 


52 GGGGCHHS IF et 


0406 °CFS0 6c 


02 


ecco 4aF 
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Kernel Pode 8ispatcher 


ee29 
ag20 
6929 
0028 
0926 
9929 
0929 
6029 
0020 
0029 
6026 
0929 
6026 
6620 
6029 
60206 
6620 


6620 | 


3¢ 
Ge 


3¢ 
66 
Os 


ge 
19 
8% 
t¢€ 


9a 
pha 


92 
if 
af 


e666 
eoee 
000s 
8006 
0086 
a0gs8 
6a0Cc 
9600 
6a00 
6060 
6022 
Cots 
6017 
0019 
6019 
6029 
60249 
Gais 
6029 
Goze 
09327 
8620 
0033 
0035 
0037 
0037 
6G27 
0638 
0038 
0638 
693% 
6638 
Goose 


96600900 


0s 


6000 
0061 


26s 
264 
267 
264 
269 
279 
272 
272 
273 
276 
27s 
275 
277 
278 
279 
296 
281 
282 
283 
286 
28s 
286 
287 
228 
289 
2998 
291 
292 
293 
296 
245 
296 
297 
298 
299 
300 


* 362 


362 
303 
304 
3658 
306 
307 
308 
369 
339 
311 
312 
323 
324 
315 
326 
317 
328 
319 


oSSTTL 


e 
e 


RG 


RE 2 


Be 


OO C8 20 08 20 66 c0 08 00 CO we 65 08 C8 of o@ 26 
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Kernel fede Oisgatchkor 


Trout Parameters’ 


€range nede arguacnt value. 


CS®9 = Return address if bed change sede value 


Current PCB Address. (Therefore R4 must be specified in a 
Pegister save masks for kernel routines.) 


begument peinter existing ehen the change 


‘mode instruction was executede 


Address of minimal call frane ta exit 


the change sode dispatcher 
the eriginal sede. 


and return te 


Kernel sccess violation 
Set aceess violation status co 


Kernel insufficient arqueents. 
Set status code and 


RSB te forward request 
Entry te dispatcher 


Nermalize dispater cade vaiue 
Branch if cede value tea los 


oPSECT USER_KRERNEL_OTSPO SITE oNGWURT, EXE PIC 
eaccvros 3 

MOVZUL OSSS_ACCVIG RO 3 

RET $ and return 
KRINS®4ARGS : 

MOVZWL S8SSS_INSFARG,RO $ 

rey 3 Petuen 
KNOTRES 258 3 
RERNEL _OISPRTCHS ® $ 

“NOVAS WEmKCCOE_BASECROD RL : 

Lt Sty KNGTME 3 

cxey RL, SKREQNEL COUNTER 3 Check high Limit 

8Geou KNCTME . 


The dispaten 


verified. 


06 we we ed 0 


MOVZSL 
MOV AL 
TENGRG 
cues 

SLssu 
CASEW 


RC ASE_SASES 


26 06 ce oe of 


cade has now been verified 


WORERNEL_NARGERIIeR2 : 
SESCRITORE : 
R2,CAP) KACCVIG : 


CAPD, MOCKERNEL _NARG@KCODE, 


KRINSFARG 

RO a= 

SKCOOE _BASE,— 
CCKERNEL_C OUNTER—-1> 


e 
® 
° 
6 
e 
° 
e 
° 
e 
e 
e 
» 


Branch if out of range 


as being handled by this disea 


new the argueent list sill be prebed and the required nusber of arguae 


Get required arqument caunt 
Cengute byte count ineluding a 
Beanch if arglist net readable 
BASEDCRGI $ Check for required 
ef arguaents : 

Case on change sode 

arqument value 

Sase value 

Lieait value (number of entrios 
Case table base address for O€ 


Case table entries sre sade in the PSECT USER _KERNEL CISP! by 
inveeations ef the DEFINE SERVICE escro. The three PSECTS, 
USER _KERNEL_OFSPGo1e2 wtll be abutted in lexical order at link-t 


_ PSECT USER_KERNEL_OISP2, SYTE ,NOWRT EXE PIC 


Rss 


225 


s Return to reject eut of 
Prange value 
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s 


Listing 2-1: System Supplied Dispatcher File (Page 8 of 12) 


30 06080 °SF 


$0 0000°8F 


$2 06060 Ca 


F8 

02 31 

§3 

$2 GOOo°CF4i 
CICCROoSe IFS, 
8400 °CF4O 6 
o1 

$8 

06 FCoO SF 


- fxennle of user system service dispate 17—MAY-1982 10511553 


Executive Mede Dispatcher 


6001 
0001 
0001 
00a 
ooct 
9002 
0001 
000% 
6001 
6601 
0001 
6901 
0001 
6002 
0061 


3¢ 
06 


3c 


04 
6s 


ga 
cE 


91 


af 


0068 
690069 
eo0s 
6006 
0006 
6008 
ooec 
0000 
6960 
acon 
0012 
e014 
0017 
609 
6019 
6919 
0019 
8029 
9019 
oore 
O627 
9620 
0033 
0035 
0037 
0037 
60037 
9038 
0038 
0638 
9033 
6038 
0035 


090000000 


0s 


6009 
oad: 


321 
322 
323 
326 
325 
326 
327 
328 
329 
330 
331 
332 
333 
336 
335 
336 
337 
326 
339 
340 
341 
342 
343 
346 
365. 
346 
347 
343 
349 
3$0 
3$1 
3$2 
353 
356 
385 
356 
357 
359 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 


oS8TrTeu 


@ 
¢ 


CSP) - 
R060 - 


Pe 


Oe CO 20 20 OF 20 00 26 SO CO SO OF Go os 


oe PSECT 
€accvras 

mOVIWL 

RET 
EINSFARG: 

SOV ZwtL 

ret 
ENGTMNES &S98 


EXEC_OLSPATCH:: 
mavas 
BLSS 
Crew 
scequ 


The dispaten 


verified. 


mOVZSL 
ROVAL 
TFenoRre 
Cues 
StSSsu 
Casetw 


ECASE_SASE? 


USER _EX 


oP SECT 
xse8 


2- 


VAX=11 Macro V¥03—-6060 Page 8 


2T—APRH1982 05226269 SYSSSVSROOTSCSTSMLP.EXAMPLESIUSSOIC1) 


Executive Mede Disvatcher 


Tneut Paraaeters: 


Return address if bad change node value 
Change rode argument values 


deguaent pointer existing shen the change 
mode instruction sas executed. 


Address of wininal call frame te exit 
the change sede dispatcher and return to 
the eriginsl sede. 


USER_EXEC_ OLSPOLSVTE .NOURT, EXE, PLC 
€xee access vielastion 


e 
OSSS_ACCVIO RG 3 Set sccess viclation status cade 

$ and return 

¢ Exec insufficient arguaents. 
@SSS_INSFARG.RO 3 Set status code and 

3 Petuen 

$ RS8 te fervard request 

3 Entry te dissatcher 
W°-ECODE_BASEC ROD, R22 3 Merealize dispatch code value 
ENOTHE 3 Beaneh if cade value toe lowe 
RL SEXEC_COUNTER 3 Cheet high Lisit 
ENOT ME 3 Branch if out of range . 


code hss new been verified as being handled by this dispatcher, 


few the srgument list sill be prebed and the required nuaber of argquaents 


WOEXEC MARGCRLIAL ¢ Get required argument count 
SSSCRIT—RL 3 Compute byte count including arg count 
R1, CaP) -EACCVIC 3 Seench if arglist net readable 
CAP) pMACEXEC _WARGECODE_BSASEDECRG] 3 Check fer required nusber 
EINSFARG 2 of arguments 
80,- 3 Case on change acde 
- + argqueent value 
SECOOE_BASEL— t Sase value 
O< EXEC _COUNTER=1> 3 Limit value (number of entries) 
° 


Case table base address for DEFINE _ SERVICE 


Case table entries sre nade in the PSECT USER_fXEC_OISP1 by 
invocations of the O€FINE_ SERVICE sacro. 


The three PSECTS, 
EC_OTSPO,1.2 will be abutted in lexical erder st link-tine. 


USER _EXEC_OLSPZ,BYTE NOWRT, EXE, PIC 


3 Retuen to reject out of 
3 range value 


16 








WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-1: System Supplied Dispatcher File (Page 9 of 12) 


US /YSOISP . © Example of user systee service dispate 17—MAT-1982 102212353 VAX—-1i Macrae YO3-06 
v02-060 User Pundawen Service ‘ 27 APRo1L9BZ 05326549 SVSSSYSROGTSCSYSHLP EXAMPLE 
6902 376 eS8TTL Usee Rundown Service 
eget 37S see 
0001 3746 3 Sunetional descriptions 
0001 377 $3 This service is invoked from sithin the kernel sede system service 
- eco: 376 3 that peeferns image rundoun. It is inweked before any systee 
600% 379 3 eundoon funetions Cloee deassign channels, release serery) are 
eco% 386 ¢ performed. User ecde should not inveked any RMS services or RTL 
006% 3ei ¢ eoutines, sust net signal any exceptions. User code can invekeo 
adel 382 3 mest syste services execst these that uso RAS Cocge SPUTMSG). 
8001 383 $ 
6601 384 $ Calling sequence: 
001 385 3 j$8 USER _RUNOGYN 
0001 386 ¢$ Entered at IPL20 and aust leave at IPi20. 
600i 387 3 
oat 389 S$ Inout Parsveterss 
6001 389 3 R& = Current PCE Address. (Therefore R4 aust be specified in all 
ece: 390 ¢: Pegister save masks for kernel reutines.) 
ooo 39% 3 
0962 392 ¢ RY - Access tede parancter to SRUNOWM maxzivnized sith previous ee 
ogc 393 3 
eect 396 $ B® = begument pointer oxisting shen the SRUNDWN systen 
Geet 39S ¢ service ves inveked. 
6002 396 & 
606 397 ¢ C49) <- decess Bwede parzmeter te sRUNOMN 
eact 398 3 ° 
eeol 399 joe 
e000cc0s £69 oPSECT USER CODES BYTE .NOWRY EXE SPIE 
6660 40% 
. €609 £62 USER _RUNDOUNS ® 3 Entry peint fer services 
$2 cea 9060 603 SUSHL e2 3 Save a register 
ea°ar 9® ¢002 e0é PusMasm S“SYSCUT 3 Set up address ef descristar 
66° G9 6965 aes PUSHR S*9SYS_ULEN 8 Set ue length 
$2 TE ce 90607 oG6 SOV AL =CSPJ_ 22 : Geab some teeporary storage 
coca eG7 SASSTGN_S 6CR2Z396 €R2) $ Assign & channel ta operster con 
2¢€ $0 €9 00238 e698 suse #6, 168 3 Errer 
oo18 409 sourrur CRZ7_ SSCMSE LEN, S°NSG 3 Print the sessage en ope 
6639 619 SGASSEN_S (RZ) ¢ Get rid of the ehannel 
se iol C3. 0963 EL 20383 aGoLl2 12, $® : Clean up 
$2 a€ CG a0864 e612 eOVve CSPJO, RZ 3 Restore register 
o$ 6069 #13 W$B8 


0068 ete 8 
38 30 03 $0 6F SE Q0468 415 sysourts .ascry /_opaass 
036960645 9O086 616 SYS _LENe.-SYSOUT 
?8 68 26 65 &7 61 50 49 26 28 24 28 -96080 el? “$63 oASCTIY. seaew Image exiting *2&/ 
28 28 28 20 67 58 69 76 69 GO5C 
Q0accog7s 0665 $28 BSG_LENB.<-mSG 


2-17 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-l: System Supplied Dispatcher File (Page 198 of 12) 


31t$P 


$1 


Ce a€ 
6% 18 


06000000 °SF 


$6 


0ace°saF 


- Exawale of user system service disoste 1L7-MAY—1982 10511253 VAxX-1l Mascre V03~00 Page 10 


a0ic 


Set Time of Oay 
6065 620 
0965 42% 
0065 422 
0465 623 
0065 426 
0065 625 
c96s 424 
6006S 627 
00€5 429 
8606S 429 
0965 436 
OcEes #21 
0065 632 
0065 633 
09es 634 
0067 635 
0968 634 
COT? 427 
C076 438 
0078 429 
ooTe £40 
Oa7e eat 
$081 442 


Register Value ZT—APR—19B2 AOSFS26569 SYSSSYSROOTSCSYSHLP.EXAMPLESJUSSOIC1I)D 


eSSTTL Get Time of Cay Register Value 


¢ 
e 


Functional Cescripstian: 
This routine reads the content of the harduare time of day 
precessor register and stores the resulting value sat the 
specified address. 


tnput Parsneters: 
04€89) © Address to return tise of day value 
R64 ~ Address of current PC8 


Sutput Parameters: 
RO - Canvletion Status Code 


OO @F C0 ce 6 20 06 98 08 oO ce Ce es 


eENTAY . USER _GETF_TOOR, “MCRZ, 9, RS 
ROVE CAPD RL 3 Get address te stere time of day register 
TENOWURT €4.CR190208 Spanch if net eritadble 


® 

: 
“EPR ePRS_ TOOR.CRID $ Return current tine of day register 
MOVL OSSS_ NORMAL RO 3 Set nermal conpletion status 
fey 2 and return . 


108° SOViwt. 4SS8_sCCVIO,RO 
RET 


Indicate access violation 


WRITING A USER-WRITTEN SYSTEM SERVICE 





Listing 2-l: System Supplied Dispatcher File (Page 11 of 12) 


SEn_sYS_OLSP. 
02-000 


$$ 660000080° 


Sk 68 
6134 
so 4 
TR ge 
so Oo7k 
36 AS 


oF 
ac 
0a 


as 
ac 


‘$0 


04 
ef 
56 


56 6g000900°SF 


$6 oo0G° 


SF 


- Example of user system service dispete LeMAY—1982 10813553 VAX-11 Macrae VO3~-00° 


Set Sage Fault Cluster Facter 


6082 
6682 
0082 
6082 
G082 
a082 
0082 
0082 
0082 
C082 
0082 
6082 
0082 
0082 
0082 
0082 
8084 
6088 
oosF 
O92 
6097 
60958 
Coge 
0083 
OGAS 
O0A9 
9040 
OOBS 
o0es 
6685 
O0B8 
00868 


646 
66S 
646 
6a? 
48 
469 
656 
653 
6$2 
653 
S64 
635 
656 
68? 
4g 
489 
6G 
oes 
662 
663 
$64 
465 
666 
$67 
668 
&69 
676 
ro 
672 
473 
ets 
67S 


° 
° 


OO 08 GO 8 OO 00 CO 06 OO O86 00 08 BO OO 


1088s 


2083 


3683s 


ZT APRHLGG2 05826349 SYSSSYSROGT SE SYSHLPOEXANP 


eSB8TTL Set Page Fault Cluster Factor 


Funetionsl Geseriptions 


This routine sets the page fault cluster to the specified value 


and returns the previeus valucec 


Input Paeancterss 


G4CAP) —- Hew value for Page Fault Cluster factor 
G8CAP) - Address te rotuen previeus value 


CG nears nene) 


R& = PEB address of current process 


Gutput Persseterss 


RO - Completion Status cade 


oERTRY USER _SET_PRC cOMCRE RSD 
ROVE QECTLEGL PMB ORS 
eGvVi OC APY, RI 
seq 108 
TEMGURY €66.€223,308 
MOVZSL PHOSE. GFPFCCECRS),CRID 
“ove CP) RO 
CuPE ROG BL27 
SLeou 20s 
“Ove €127,k6 
nove RG, FHOSE_CFEPECCRS) 
move OSS S_KORMAL RO 
eer 
MOVZWL ¢SS8_AECVIO~RO 
eer 
2-19 


OO 66 06 66 OO 08 OF a0 Of 68 OF 20 


Get address ef precess header 

Get address te store previous 
Branch if none 

Beanch if net sritable 

Return current values 

Get nes value for PFC 

Cheek fer legal value 

Sreanch if legal 

Set te saxizunm vaiue 

Set nee value inte PO 

Set norual completion status 
and retuen 


Indicate access vielation 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-1: System Supplied Dispatcher File (Page 12 of 12) 


S LCTSP 


0000° SF 


~- Exawple of user system service dispate L7—MAY-1982Z 10511553 YVAX-11 Macre v603-00 Page 12 
05326249 STSSSVTSROOTSCSYSMLP. EXAMPLE SIUSSOIC1) 


Mull Service 
ooee a7? 
0068 a78 
0088 &79 
o088 480 
0086 ©61 
eoes 482 
0088 483 
0088 084 
0086 oes 
ooes 686 
e000 g08a 87 
3c)60— 0080 488 
04 90C2 089 
00c3 £99 
6663 e9t 


(2THAPRH1982 
eSSTTL Null Sorvice 
o¢ 
Functional Descriptian: 


Input Parameters: 


Output Parameters: 


cENTRY USER_MULL, “<> 
MOVZWL #SSS_NORMAL. RO 
Ret 


«ENG 


Entry definition 
Set nersal completion status 
and return 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Sample User-Written System Service 


Allows suitably privileged (GROUP, WORLD) caller to obtain the 
default directory of any process in the system 


Implemented 
- Similar 
- One AST 
default 
control 


- Another 
returns 


using ASTs 
to SGETJPI system service and $SETDDIR RMS call 


executes in context of target process, and loads 


directory string from Pl space into part of AST 
block 


AST executes in context of original caller, and 
the default directory string 


Argument list for system service 


EFN Event flag number to set when done 


PIDADR Address of PID for target process 


PRCNAM Address of process name for target process 


DDDESC Address of 3<longword descriptor for data 


SPARE | BUFFER LEN. 


BUFFER ADORESS 





ADDRESS TO RETURN LENGTH 


TKO185 


IOSB Address of longword for final status 


ASTADR AST address for notification 


ASTPRM AST parameter 


WRITING A USER-WRITTEN SYSTEM SERVICE 


System Programming Techniques Illustrated 


Making privilege checks 

Making quota checks 

Making memory accessibility checks 
Allocating nonpaged pool 

Using Pl mapping of process header 

Queuing ASTs 

Defining symbolic offsets in data structures 


Accessing system data structures observing synchronization 
rules 


‘ Converting process name to process id 
Unique features of special kernel ASTs 
Recovering from error conditions 


Guarding against errors in kernel mode for asynchronous 
operations 


- Access violations 
- Page protection changes 


- Image exits 





WRITING A USER-WRITTEN SYSTEM SERVICE 
Flow of Control in Sample System Service 


-l- User program calls USSGETDD 
USSGETDD System Service 


~2= Allocates and builds 
ACB data structure 


STANDARD AST CONTROL 
BLOCK FIELDS 









PARAMETERS SPECIFIED 
ON SYSTEM SERVICE 
CALL 


MISC. INFORMATION 
NEEDED BY AST 
ROUTINES 


POINTERS TO BLOCKS 

CONTAINING CODE TO 

EXECUTE BY TWO AST 
ROUTINES 




















CODE FOR 
PUT_STRING 
AST 


CODE FOR © 
GET_STRING: 
AST 






TKO186 


-3- Queues up GET STRING AST 
e Executes in context of 
target process to get 
default directory string 


e Queues up PUT STRING AST 


-4- PUT STRING AST routine 
e Executes in context of caller process 
e Returns default directory string to caller 


@e Queues up AST requested by user (if any) 
-5- User AST executes (if requested) 


-~6- Control returned to user program 
2-23 


WRITING A USER-WRITTEN SYSTEM SERVICE 


The USS_GETDD Procedure 


e Entry point for system service 


e AST 


Makes various checks to insure appropriate parameters on 
call 


Allocates nonpaged pool space for AST control block to 
queue to target process 


Allocates nonpaged pool space to hold two segments of code 
@ GET string procedure 


® PUT string procedure 


control block for target process 

Contains parameters from system service call 

Space reserved for default directory string 
Contains addresses of GET and PUT string procedures 


Specifies GET string procedure as AST code to execute in 
context of target process . 


Specifies that AST is a special kernel AST (and cannot be 
disabled) 


e Before queueing AST 


Raises IPL to SYNCH 


Checks to see if target process was deleted while 
allocating nonpaged pool 


e Possible optimizations 


Could check if target process is caller 


Could allocate one large block of nonpaged pool and_= store 
AST block as well as GET and PUT string procedures in it 


Not done to avoid making complicated example even more 
complicated 





WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: 


JSSue .00 
102 


6¢600c0093 
occococos 


8600 
6606 
0000 
0006 
6600 
90090 
0000 
6000 
6000 
0000 
e000 
0000 
6000 
e000 
0900 
6060 
0660 
8000 
6606 
60c0 
6060 
6000 
6000 
9600 
e000 
cess 
9006 
6000 
6060 
0000 
6000 
e006 
9900 
oog6 
Goes 
0068 
ooce 
6900 
6008 
0060 
e906 
esos 
coos 
0060 
ooo0 
0c00 
0008 
00006 
0966 
6000 
0000 
€900 
0000 
6000 
e000 
0000 
0000 


USSGETDD Procedure (Page 1 of 12) 


BD ORAM & wi 0 


Get Default Oirectory String 


L7OMAY2982 16222516 VAR—-12 Macro ¥03~00 ' 
LI—-MAV—1982 105123566 WORKSCMUTZINIEKS.SYSPRGWUSSIU! 


3 USSGETSDo MAR 
3 This file contains beth an edited user-eritten system service 
H dispatcher Cfrow CSYSHLP. EXAMPLESIUSSDISP. MAR) and the systen 
3 service code itself for the get default directory systom service. 
3 
$ Naers Definitions 
: OEFINE SERVICE - A macre to cake the apprepriste entries in several 
3 different PSECTS required ta define an EXEC ar KER 
3 mode service. These include the transfer vector, 
H the case table fer dispatchings, and a table contain 
: the number ef required srguaents. 
: 
: DECI NE SERVICE Name, Number _of_ Irgquments, Node 
eHACRO OFFINE_ SERVICE, NAME NARGC2O pMODESKERNEL 
oPSECT SSESTRANSFER VECTOR. PAGE NOWRY Dp EXE, PIC 
eALIGNH QUAD 3 BLlign entry points fer speed and 3 
o TRANSFER MARE 3 Befine naweo 36 universal symbol fe 
oRASK wane 3s Use entry sask defined in asain ray 
ot8 TON MODESKERNEL 
CHAR “OCKRCOLE_SASECKERNEL COUNTERS & Change to kernel nade and exe 
eer 3 Return 
KERNEL COUNTER SKERNEL COUNTEROL 3 Advance counter 
oPSECT KERNEL _NARG SYTE NOWRT, EXE, PIC 
o8YTE waRG $ Gefine nusber of required srquaent 
ePSECT USER_KERNEL_OF SP1, SY TE NOWRT EXE DPIC 
o¥wORO ZoNAMEKCASE BASE - 3 Make entry in kernel wode CASE tat 
Ite : 
CHRE SCECODE SASECEXEC COUNTERS = Crange te executive node and ex 
ReT $ Return 
EXEC _ COUNTER SEXEC_COUNTEROL 8 Adwance counter 
ePSECT EXEC _NARGe BYTE NGURT EXE, PIC 
eSYTE NARG $ Qefine number of required argquaent 
oPSECT USER_EXEC_OITSPL BYTE NGWRY EXE, PIC 
owORO Z2oMAMEECASE_B8ASE 2 Rake entry in exec node CASE table 
eENOC 3 
oENOM OEVINE SERVICE H 
3 Equated Syabeals 
SPHOCEF 3 Gefine psrecess header offsets 
SPLYOEF $ Gefine PLY offsets and values 
SPeOEF $ Define processor register nunbers 
: Initialize counters for change sede dispatching codes 
RE QNEL _COUNTER 20 s Reenel code counter 
EXEC COUNTER SO 3 Exec code caunter 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2~2: USSGETDD Procedure (Page 2 of 


12) 


30 Get Oefault Oirectory String LoMAV—1982 162512216 VAX—-11: Macrae V¥03-00 Page 2 
: LIOMAY=198Z LO511506 WORKSOCHUTZNIEKRS.SYSPRGIUSSIUSSGETOC1) 
0000 £3 3 
6000 $9 3 Qen Sterage 
9000 60 
- 60000000 61 oPSECT KERNEL NARGe BYTE NOWRT DEXE PIC 
0006 62 KECNEL_ MARGS 3 Base of byte table containing the 
6000 63 3: navaber of required arguaents. 
90009000 66 eoPSECT EXEC _NARG BYTE NOWRT, EXE PIC 
0000 6S EXECLNARGS 3 Base of byte table contsining the 
6000 66 $ nuaber of required arguaents. 
0000 67? 
6000 €8 
9000 69 34 
e000 70 : Tre use of transfer vectors tao effect entry tea the user sritten system services 
6000 7% 3 enables some uodating of the shareable inage containing thee without necessitating 
6000 72 3 & reelink of all prograwss that call thea. The PSECT caontaininng the transfer 
6000 73°: veetor vill be pesitioned at the lasest virtusal address in the shareable image 
0000 76 3 and se lang as the transfer vector is net rev~ordered, pregraas linked sith 
0000 73 $ ene versien of the shareable image will continusc te verk sith the next. 
0060 76 3 
ocoo 77 ¢ Thus as additianal services are added te 3 privileged shareable image, their 
6000 78 : definitions sheuld be added te the end of the fellesing list to ensure that 
00c0 79 $ sregrams using previous versions of it sill not need te be re-linked. 
0000 60 3 Te completely avoid relinking existing pregrams the size of the privileged 
6000 81 3 shsreable image sust not change so some padding sill be required to provide 
ecco 82 3 the opportunity for future greeth. 
9000 $3 je= ‘ 
6600 84 QOESTNE_ SERVICE USS_GETOO.7,XERNEL © 3 Service te get default dir. 
0002 es 
6002 86 3 
6062 87 3: Tre base values used tea generate the dissatching codes sheuld be negative for 
0002 88 3 user services and nust be chesen to aveid overlap sith any other privileged 
0062 89 3 shareable images that sill be used concurrently. Their definition is 
6002 90 3 deferred to this point in the assenbly te cause their use in the preceding 
0062 91 3 wacro calis to be ferward references that guarantee the size of the change 
0002 92 3 swede instructions te be four bytes. This satisfies an assuaption that is 
0002 ###93 3 made by for services that have to wait and be retried. The PC for retrying 
6602 $4 3 the change sode instruction that invokes the service is assumed te be 4 bytes 
0002 95 3 less than that saved in the change sode exception frame. Of course, the particula 
0002 96 3 service routine determines shether this is possible. 
6062 97 3 
FEFEFQOAS 0002 98 KCODE_SaSte-4600 3 Sase CH#K cade value for these services 
PFFeFOAS 0002 99 ECODE_8aSEs—600 3 Sase CHRE cede value for these services 











WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 3 of 12) 


JSSveTB8 Get Cefault 
Y02 Change ode 


0002 
6062 


69066000 


00600062 
00000000° 
eoe000es”© 
66060006 
690600006 
e06aocad 
60600060 
oacoccas 


e006 
6000 
6964 
600s 
000C 
00206 
GO%4 
0018 
eerc 


Cirectory String 


LT-MAV198Z 16521226 VAX—11 Macre V03—-00 


Giseatchner Vector Slock LIMAVO1982 10823306 WORK SCRULZINIERS. STSPRGOUSS: 

161 eSBTTL Change Kode Gispateher Vecter Bleck 

162 

103 oPSECT USER _ SERVICES, PACE, VEC. PIE NGURT, EXE 

204 

10s eL ONG PLVSC_TYP_Cuoo $ Set tyne of veeter te change sec 

106 oL ONG SVSS&_ VERS IGN 3 Identify system version 

167 eL ONG KREQWEL OTSPATCH@~ 3 Offset te kernel nade dispatcher 

168 el ONG 8 3 Offset te executive made dispat< 

289 oL ONG 6 .$ Reserved. 

129 oL ONG Q & Reserved. 

122 eo LONG t] $3 Ne RBS dispatcher 

112 oL ONG () 3 Addeess check ~ PTC image 
2-27 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 4 of 12) 


$0 ooco°sF 


$0 0000°8F 


$2 G2$ea Co 
La | 

1 $i 

#3 


st COCe*Cr4st 
$1 COOGCOGS IF41 


8258 °CF4O 6c 


31 
$0 


30 FQa8 $F 


Get Default 
Kernel Mede 


6620 
0020 
0020 
0020 
0920 
6029 
6020 
0020 
0026 
0020 
0020 
0020 
6020 
0020 
6020 
6020 
0020 
0620 


0e060006 


3¢ 
046 


3¢ 
Q4 
os 


9€ 
19 
81 
is 


9a 
o€ 


$1 


ar 


8000 
0000 
000s 
0006 
0066 
9008 
o0ac 
0009 
6000 
oeao 
0022 
G014 
Co17 
0019 
e019 
0029 
0019 
6029 
0039 
oof 
8027 
6020 
6033 
6035 
0037 
6037 
0037 
0038 
0039 
C334 
0038 
6038 
0038 


69000060 


Q5 


0360 
o30% 


Directory String 
Oisopatcher 


116 
3415 
126 
117 
118 
129 
120 
122 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
133 
139 
160 
141 
142 
143 
146 
145 
146 
147 
148 
149 
190 


is. 


132 
153 
184 
15$ 
156 
1S? 
1s$ 
189 
160 
161 
162 
163 
1é6 
16$ 
166 
167 
1448 


eSSTTL 
tee 


Ro 


R4 = 


ae 


cP eo 


oPSECT 
RACCYTGs 
MOVIWE 
eet 
RINSPARGS 
MOVZWL 
; RET 
KNCTME?S RS8 


KERNEL _OISPATCHE: 


MOVAS 
6Lss 
cuew 
SGeou 


The dispatch 


veritied. 


ee 06 co of oe 


“OVZSL 
OVAL 
TFngre 
Cures 
BLSSU 
Casew 


KCASE_SASE: 


eo os 06 oe 


LT-MAY=1982 102215126 VAX-11 Racro Y¥03-00 Page 4 
LI-“MAY"1982 19511206 WORKS CMUTZNIEKS .STSPRG.USSIUSSGETOCL) 


Kernel Mode Oispatcher 


Trout Parseeters: 


Change node argqueent value. 


CSP - Return address if bad change sede value 


Current PCB Address. CTherefere 24 sust be specified in all 
register save sasks for kernel reutines.) 


Argument pointer existing shen the change 
wede instruction uss executed. 


Address ef wmininal call frame to exit 


the cRange sede dispatcher 
the eriginal mede. 


and return te 


USER_KERNEL_OFSP0, SY TE sNOWRT EXE SPIC 


@SS8 _ACCVIG,R0 


OSSS_INSFARG RO 


20 e8 66 66 26 OF CO 


WO~KCODE_BASECRO), RY 
£nOT ME 

Ri, SRERWEL_COUNTER 
KRNOTNE 


se ot a0 cf ve 


code has now been verified 


WORE RMEL _NARGCRIT RL : 
SaeCR13, a1 Hy 
RL CaP) KACCYIO : 


CAP) W*CKERNEL_NARG—KCODE_ 


RINS#ARG H 
RO,- $ 
- 3 
@RCOOE_BASE,= : 
SCKRERNEL COUNTER-1> Hy 


Kernel access violation 

Set secess violation status code 
and return 

Rernel insufficient argusents. 
Set status code and 

eetuen 

RSB te fersard request 


Entry te dispatcher 

Nerwalize dispatch cade value 
Sranch if code value too low 
Check Righ Lisit 

Beanch if out of range 


as being handled by this dispatcher, 


nes the argueent list sill be prebed and the required number of argquaents 


Get required arguaeent count 
Comeute byte count including arg count 
Branch if saeglist net readable 
SASE>CROI 3 Check for required nuader 
ef arguaents 
Case on change sode 
arguaent value 
Base value 
Limit value Cnumber of entries) 
Case table base address for OEFINE_ SERVICE 


Case table entries are sade in the PSECT USER_KERNEL_OCLSP1 by 
invocations sf the DEFINE_SERVICE macro. The three PSECTS, 
USER _ KERMEL_OTSPO01.2 will be abutted in lexical order at link~-tine. 


oPSECT USER KERNEL _OLSPZ,AYTENOWRT EXE, PIC 


RSA 


2 
° 


Return to reject out of 
range value 


3$$u.°.98 
102 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 5 of 12) 


Sireetory String LI—-MAV1962 10212326 VAX—-12 Macre V03~00 


Ser Default? 
Kernel Mode Dispatcher L7—MAY1982 1LOS1230G WORKSCHMUIZNIEKS.SYSPRG.USSI 
6603 870 title USSGETOS Get Befault Oirectery String 
ca6: 172 eidernt °¥O28 
691 172 
o003 173 
6002 17% gee 
0902 17S 3 
6001 2176 3) Faeilitys 
6001 177 3 
6601 178 ¢ This is an exemple of # user oritten systes service that obtains 
6901 179 3 the default directory string from any precess. 
0001 186 ¢: 
0061 181 3) Environments 
ooo 192 3 : 
e001 183 Tre orecedure executes in kernel mode te queue the special AST 
6061 tee 5; to the saecified precess. 4&4 special AST is alse used to return the 
6901 185 3 information te the requesting sreeesse 
000! 186 8 
0061 187 3: Authors 
6GO1 188 3 
ooGr wae ¢ Larry Kenan 
6G61 196 ¢ 
0601 19% ¢ Creation Sate: 
eoGgt 192 3 
oce:. 193 3: 1$ July 1990 
Cool 196 3 
agai 19S 3: Revisions: 
0601 196 3 
6602 197 3 Vit Ruiznieks 26-8 AR-1982 
6601 198 3 
oa61 198 ¢$ Fized various synchronization Sugs 
0062 260 3 
6662 262 3: Added charging precess buffered {/G quetsa fer buffers 
ooo 2€2 3° 
eae. 203 seo 
Geet 206 
eo6t 265 ¢ 
ee0t 266 3: TInelude Files: 
acer 207 ¢: 
eect 208 
600% 269 sacsoEer saST Central Sleek definitiens 
g0gGg2 220 SOVNOEF sBate structure tyne codes 
eogl 23 sIPLOE® sSyrcheonizatien IPL values 
ecg 222 SJISOE® tsJeb Infoereation Bleck Cquctas) 
6oaLr 213 SPCECEF sSefteare °CB fields 
e001 224 SPHODEF sPerecess Header fields 
e602 215 SPRIDEF sPeierity beest classes 
0001 226 SPSLOEF sfields in PSL 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: 


Set Default 
Kernel Mode 


g00ga01c 


00000029 
00000024 
o0c0cez8 
eccoonzc 
00000039 
oo00ce34 
00000038 
90G0003¢ 
occccesa 


* 96000053 


oa 


oceooggs 
goocooes 
eo0gcosc 
006000106 


o00gcet1s 


60000028 
ocoooorc 


6000097€ 
0000079 


0062 
6eat 
0001 
6001 
oc01 
6009 
6000 
oo1¢c 
oo1c 
osic 
0620 
0020 
0026 
0026 
0028 
0028 
oo2c 
e02c 
0030 
0030 
0034 
0036 
0638 
0038 
0a3c 
003Cc 
0090 
0090 
e030 
6690 
00990 
6090 
cect 
oad 
oost 
ooot 
eoot 
0002 
0962 
0002 
ood 
6001 
0001 
690% 
0001 
600: 
6001 
6001 
6001 
o6Gt 
0001 
6001 
9001 
0001 


USSGETDD Procedure (Page 6 of 12) 


Sirectory String 
Odspaetcher 


218 
219 
220 
223 


222 


223 
226 
225 
225 
227 
228 
229 
230 
231 
232 
233 
234 


235. 


234 
237 
238 
239 


240. 


241 
242 
243 
264 
245 
246 
247 
248 
249 
250 
2351 
252 
2$3 
284 
235 
256 
257 
258 
259 
260 
261 
262 
263 
266 
265 
266 
267 
268 
269 
270 
271 


Define Extended AST Control Bleck 


SOEFINI 


L7-MAY=©1982 10921516 VAX—-11 Macro V03-00 Page 6 
LT-MAV~19G2 102112506 WORKSCHMUIZNIEKS oSVSPRG.USSIUSSGETOC1) 


acs 


eo & ACSSL_LRAST + 4 


sor 
SOEeF 


sose 


ACS_K_STR_LEN = ACB_K_NEW_LEN = 


ACB_L_GET_AaST 
oSLKL ot 
ACB_L_PuT_aST 
oSLKL 1 
ACB_L_ooDESC 
oBLKL 1 
aCS_t_ern 
eOUKL ot 
ACB_L_ross 
eSUKL ot 
ACB_L_QLD_P 10 
oOUKL 1 
ACS_L_INGENT 
oBLUKU 1 
ac8_t_quora 
eMLRL 1 
ACB_T_DOSTRING 
oSLKS 684 


ACB_K_NEW_LEN 


SOEFEND Acs 


sadderess ef GET AST in nenpaged poel 
saddress af PUT AST in nenpaged pool 
tStere address of data descriptor 
tSave event flag nuabder 

sSave address ef status bleck 

sSave PIO ef peauester 

2Stere image count for synchronization 
sSave aquets bytes charged 

sallecate space to contain default string 
sNueber is taken from PIO definitions 
3 in sedule SHELL 

sSyebel fer extended Lendth 


<ACB_T_DOSTRING * 1> 


Aequment List Definition Cpatterned after SGETIPL) 


CRN 

PTOAOR 
PRCNAM 
oooesc 


tass 


ASTAOR 
ASTPRA 


24 
zs 


sEvent flag nuaber 

sAddress ef precess [0 

tadderess of precess name descriptor 
saddeess ef three longuerd descriptor 
3 that deseribes destination of data 
sAddress of lengeord that receives 

3 final status 

sAST address fer netification 

34ST parasetor 


Oefine special type field codes fee blecks containing AST code 


dyack get ast = *280 - 2 
dyn ck put_ast © *x80 - 3 


2-39 





WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 7 of 12) 


SS. .38 Get Oefault Directory String LTT—-MAY—1982 10213216 VAX~22 Macre V¥03-08 

02 USS_GETOO Get Default Oirectory String P LT-MAY-1982 10211506 WORKS CMUTZNTIEKS -STSPRG.USSI 
6001 273 eSubtitle USS_GETOS Get Oefault Oirectaory String Proce 
e002 276 
6002 275 see 
6e0t 276 3 
6o61 277 3 Functional Oeserinptions 
eco 278 3: 
800% 279 3 This precedure cbtains the default directory string for any proces 
606! 280 ¢ in the system. The wethed used parallels the SGETJPL system servic 
e001 281 3 & special kernel AST is delivered to the target process, where the 
oot 282 3 default directory string is cepied fram its P1 space location te 
oool 2@3 3 the extended AST contre] block. That Bleck is then used to deliver 
aset 284 ¢ another AST back te the requesting process. 
0001 285 3 
0001 284 3 Input Paresseters: 
6601 297 3 
6602 268 ¢ CENC AP) Nuaber of event flag to set shen the roquested 
6902 289 3: inferwation is svuilable. 
000% 290 3 
0062 2923 ¢ ©LOaoRe AP) Address ef lLengserd containing the process I0 of ¢ 
eect 292 § peecess fer which the information is being request 
0002 293 3 : . 
Ga6t 294 ¢ PRENAMC AP) Address of the string deseriator for the process f 
0002 295 3 ef the process for shich the inferration is being 
0001 296 3 Pequested. 
o0gl 297 3 . 
606% 298 ¢ QODESCCAP) Address of three longuerd deseriptor that deseritse 
ecet 299 $3 shore information eill be stored. 
0062 306 3 
eect 302 § : i spare } Suftee Length | 
eaoi 3¢2 3 $003 ee en wwe } en tt eee crew ere 
6act 306 ¢ t Buffer Address t 
Cear 365 4 emcees oan een Dam apa nano aetbepes ard cee 
ooct 306 3: ! Address te Return Length I 
e€eet 307 : peered enenans ree oer crap anane> exepandhe ame cae ODD 
6901 306 ¢ 
63a1 309 $ TOSB8CAP) Used by the kernel AST te report errers back to 
eesti 310 ¢ the. epiginal caller thet cannet be detected in 
eoa? 322% ¢ the initial seceedurs. Ore such erree sight be 
6oGci 322 3 &® pretection change in the user’s buffer. 
oo0t 333 3 
6061 3226 3 AS TAORCAP) Addeess of sn AST that will be called shen all of 
6061 325 3 the requested dats has been supplied. 
ooG! 325 3 ; 
ocol 317 3 ASTPRACAP) Parameter that eill be passed to that AST 
eect 328 °° 
goa. 329 3 Implicit Treuts 
Coe? 329 3 . 
ead? 322 3 R4 Address of PCB of caller Ccurrent srocess) 
6001 322 3 
Goci 323 3 Cutaut Parsweterss 
090% 32¢ ¢ 
eocl 326 3 The default string Cand optionally its length) are passed 
0001 326 ;$ back to the caller. 
cool 327 3. 
0901 328 $ Retuen Status: 
0001 329 ¢ 


2-31 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 8 of 12) 


Get Default Oirectory String LT<MAV—198Z LOS2212216 VAX—-11 Mecre V¥03-00 Page 8 
USS_SETOO Get Default Directory String P LT—MAY—1982 105232566 WORKS CRHUIZNIEKS .SYSPRG.USSIUSSGETOC1) 
60G!t 330 ¢ SSS_ NORMAL AST has been successfully queued ta the target process 
0001 331 ¢ 
ecat 332 3 sss _accvta One of the input paraneters cannet be successfully read 
0001 333 3 er the outout string buffer or length buffer cannet 
6001 334 ° be reade 
e001 335 : 
0001 336 3 SStlexquota Net enough AST queta te deliver netification AST 
0002 337 3 
Coot 338 3 SSS UIVLOGNAN Invalid process nase string eas supplied 
0001 339 3 
6001 340 ; SSS_NONEXPR Either an invalid precess {0 was supplied or the 
coor 341 3 precess no langer existse 
0001 342 $ ; 
0c02 343 5 SSS_NOPRIV Caller does not have the privilege to request 
0001 346 ¢ information frem the target precess. 
0001 366 ¢ 
ooo1 346 Son 
Goat 347 
eoc0so0n 348 ePSECT NOQNSHARED_OATA PLC, NGEXE, LONG 
oococs1?7® coca 369 RANGES ADDRESS COCK BEGIN 3 Range ef sddresses to 
00000445" C004 350 eADORESS + LOCK END 3 leek inte working set 
0903 3$1 
eeaccoco 3$2 oPSECT uSS CcoEe PIC oSHRONGURT 
0000 3$3 
os#c 000d 356 cEMTRY USS _CETODg *m<RZ RB oN oRFeRNS RT eRe NVeRLOH RID 
0602 3$$ 
0002 386 SLRWUSET_S INAGRARANGE 3 Leek pages in serking set 
ei §0 €3 06013 387 8u3s RO. LOCK_BEGIN 
G6 C6Ots 358 R€T 3 Return if aroblem 
0017 3$9 ~EMAGL LSB : 
8017 360 
0017 341 3: Get peecess [5 of target process 
Tb a 3€2 
0017 363 LOCK _SSGINs 
a0i7 364 SETIPL *IPLS_ SYNCH sSynchrenize sccess for NAMNPTS 
$4 60060900 °CF aq OOta 3465 move G*SCHSGL_CURPCS 24 sGet current C8 address 
$4 co ¢ea2zt 346 PUSHL RS sSave current °C8 address 
s¢ Ge ca 48823 367 acou 24.49 sMake PIDAOR first srgquaent 
00GG0000°GF 16 00626 368 3$8 G*EXESNAMPTS 3 returns at IPCs SYNCH 
ee2c) += 369 SETTStL 40 3No need to stay st elevated IPL. 
sc 06 €2 602* 375 suse Prey id sReset AP 
1$ $0 Ee? 0032 371 eusc 20.208 
GO9C0GG6 °GF $1 ai 0035 372 Cuew 21 .G°SCHSGL_ SuPPTD TMULL and SWAPPER are illegal 
oF ta 603¢ 373 SGcTRU 158 
$a aoca°sar 3¢ «6 OO3E 376 MOVZWL #SSS_NONEXPR.RG 
6s it 6663 3775 Bae 10s 
8065 375 LOCK ENOS 
6045 377 
0045 378 accyvtas 
so acco’sF 3C «60045 379 “OvZwtiL 4 *eSSS_aCCvVI6,RO 
91¢60 Jt e064 380 1033 sew ERROR RETURN 
. 09465 381 
€045 392 
53 $i 09 0040 383 188s *OVL e181 sSave PID ef target process 
16 @ea 6050 3846 oer S9UC RED sRestore caller’s PCB address 
ags2 3e@5 3; Check fer and clear possible status block 
0052 386 é 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 9 of 12) 


Js 30 Get Default O4rectory String LI—-MAV~1982 102112516 VAX—-12 Racre V63-00 
¥O2 USS_GETSS Get Cetault Ofrectory String P LI-MAV-1982 TOSL1306 WORKSCMUIZNTEKRS. SYSPRG.U 
52 14 ac co 0052 387 MOVE TOSBCAP) RY $Get 1088 address 
as 13) (0056 388 SBEQL 268 3Skip if nene 
60s8 3389 TENOWRT €4,C€82),ACCVIG sCheck secessibility 
61 C& OOsEe 390 Curt CRI> SClear it initially 
0066 39% 
6069 392 3 Clear event fise 
0666 393 
$3 64 ac 98 0660 39% 2083 MOVIBL SFENC2P),R3 SGet event flag nundber 
606900606 °GE 16 0364 395 Js8 G*SCHSCLREF sClear thst flag 
co $6 €9 GOGA 396 sisc 26,108 S€zit if errors 
6060 397 
¢060 398 3 Check fer enough AST quota if ASTAOR argurent present 
0060 399 
18 ac 6S 0960 409 TST. ASTAORCAP) sAegquaent specified 
Oa 13 «69070 40i seor 2$8 tSkip check if not 
50 8000 °8F 3¢ 060072) = 802 MOVZWL = 8SSS_LEXQUOTA,RO sAssume net enough queta 
28 a6 8S 0077 403 _ *$Tw PCHSU_ASTCNTCR4O) vAny aueta left 
ce ° 28 OO74 664 8Leau 168 s€rrer if none 
os7c 465 
eo7¢ 406 3 Check secessibility of data descristor 
Core ae? 
$s 20 a€ 86 e6o7¢c 408 25%: eOVE OBGESCCAP) RS sGet address of descriptor 
6086 609 TFNGRO 422,CRS) -ACEVIO , 33s deseriater readable? 
$& 63 3C 66086 416 MOVZWE (RSD RE sButfer size to 26 
Ss? 86 a§ a3 «(0089 21 OVE &CRSIV RT $ ane address to RT 
0080 432 TENOWRY RECCRID, aACCVIG SIs text buffer sriteasble? 
$8 68 as 88 0093 413 eOVL BERS, RE sGet eddress of Length butfece 
6097 616 TENGWURT 46,628), ACTCVID sis it eritoadble? 
669s9o 635 
e090 £16 3 Cheek fer sufficient quote by sussing. sizes of all needed blocks 
0996 417 ~ 
51 GOGGG6SO SF ce 6499 o18 “OVL SACB_K_NEW_LENSRL 3 AST bleck length plus gar 
§3 $2 6oagcscs°ar C2 0046 419 aoc.3 OCPUT_LENGTHO12Z>, R19 put string Tength olus PP 2 
$i $2 80000094 °SEF ci 004¢ 629 aoou3 SCGET_LENGTHOL2Z> eR1222 8 & get string Length 
5a $2 oc aces e2t “wOvVL R1.R210 3 save quata bytes toe be charge 
69060060 °GF 16 OoB? 22 JS8 GPEXEsaueFRquora 3 Check queta 
ga 50 E39 ¢o80 623 suac RG, 108 
@0¢c3 o2% 
o9gcd 625 3: &@ this point, 211 checks have been made. The sccess checks must sti: 
60c6 626 $ be made again sehen it is tine to move data te the user’s buffer. 
eoco 627 3 Tre sesynchrenous nature of this service sliess the calling orecess 
00co 628 3 te continue execution shile the default directery string is being 
coca 629 3 abtained. Pretection could be changed en the buffer, causing a 
eoca 630 3: pessible access violatian froew kernel sodee 
aoc 431% 3 , 
osca 432: Gne cotimization that is possible here is te check shether the 
60csa 633 $ target process is the same as the caller. The default directery 
6eca #36 $ can be obtained-in & such sore straightforward ranner than is being 
esce £25 $ done here. Im facets. an RMS call already exists te accosolish this. 
eoca 436 § 
80Cc0 6327 3: New sliseate an extended AST cantrel bleck and stare the 
eocs £38 3: relevent persecters. 
coca 439 
$2 Q@00C0090 SF ca 3o0co 440 WOVL ACB _K NEW _LENSRI sSet size of extended Acs 
0acceaca GF 16 00C7 661 JS3 G*EXESALLOCSUF sAlleecate nonpaged pool space 
¢3c9 442 sWe are at IPL 2 now 
€3 $90 €3 90cs 443 aus? 20,288 sRetuen error status through co 
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Listing 2-2: USSGETDD Procedure (Page 19 of 12) 


Set Default Oirectory String LT—MAV-1982 102212316 VAX—-11 Macre VO3-00 Page 10 
USS.SETOD Set SYefault BJirectary String 9 LTI-MAV=1982 103112306 WORKS CHUIZN TEKS. SYSPRGWUSSIUSSEETOC1) 
FETT 31 «6ece 666 2Rw 108 : 3 exit path 
6003 665 
ac a2 se c23 ¢coa3 644 288: MOVL R11, ACSSL_ PLOCR2) sStore PID ef target process 
68 A2 $1 69 6¢007 447 “ovw RT ACE SU_SIZECR2Z) tStore size of structure 
Oa a2 02 90060—s 6.608 648 “OVS SOYNSC_ACS ACSSE_TYPECR2Z) $$ and its tyse 
5 st cc ocr 649 MOVPSL RL 
$1 $2 02 16 €*® OCE: 459 exTzv PSL SV_PRYMGD, CPSLES_PRYMNOO, 21,21 SGet caller’s access node 
Qe 42 51 80 sf 89 CES o$t 8r$83 SCLIACBSV_KASTD, 21 ,ACESE_RMOOCRZ) & and store it in Acs 
10 42 16 ac co goECc 432 MOVE BS TAORCAP) -ACBSL_ASTCR2) $ address of user’s AST, 
1s a2 1¢ ac 09 OOFlL 653 “@oVvL BS TPRMCAP) -ACBSL _ASTPRACR2) 2 and associated paraseter 
28 a2 Ce aC 00 O0FS 654 "OVE CFNC AP), ACB_L_ EFNCR2) sStere event flag nuater 
2¢ a2 14 ac 609 «COFFS ass MOVL TOSBCAP) ACB _L_IGS8CR2) 3 and status bleck address 
26 &2 10 ac ne 9100 456 MOVL ODODE SCCAP) -ACE_L_OODESCCR2) SSave address ef data descriptor 
36 &2 60 s4 co 0:05 457 “evL OCBSL_ PIDCR4), ACB_L_OLO_PIOCR2Z) SSave caller’s PID 
55 O90380C0°GF co «66108 458 mOVL G*CTLSGL_ PHO. RS 3 and image sequence nuaber 
36 A2 Q3FO CS Co @e11i 433 “OVE PHOSL. IMGCNTCRS) ACB_L_IMGCNTCR2) 3 for later synchronization 
2C a2 Ce C117 669 CueL ACB _LLUGET_ASTCR2) sClear these teo lengsords ta 
20 42 C&S atria 462 evet ACS_L. PUT ASTCR2) $ prevent possible deallocation erre 
3a@ A2 SA cao 6119 662 move @16,4C8_L_ QUOT ACR2) 3 bytes te charge to quota 
012% 463 3 
0222 464 3 Nee copy the tee ASTS inte nensaged peel. & separate block will 
0222 663 3 be allecated for each of the twee ASTS. If either deallocation 
O222 464 3 fails. the error path sust be sure to deallaocate any already 
oi22 667 3 allecated peol space. 
6221 668 § 
at22 469 
0121 476 3 Sirst de the GET AST 
6122 471 
S$ 52 0G 6121 &72 OYE R2RS tSawe AC83 address 
$3 OCCCOCSA’ SF 6a at24 673 MOVE OGET_LENGTHOL2 Rt sAlles 12 bytes fer a header 
00000000°GF 16 C0128 oT74 3$8. G*EXES ALONGN PAGED 
63 $0 €s 0131 47$ eies 20,308 
OOAT 3% O136 78 rv sss 
1c as 52 60 06137 e777? 3085: nave RZ, ACE _L_GET_ASTCRS) 
82 7¢ 48366138 o78 Curse CRZ3¢ sClear twe link longsoerds 
- 82 $i 80 6130 479 “Ovw R1,CRZ50 Steere size 
82 TE sf 98 0140 630 MQVZSU AO YN_EK_GET_AST,CR23¢ tStere type and clear spare byte 
81446 £81 
af 88 O1es 422 eusHe. SORCRO RL eRZRIeRG RSD? SSave regtsters for MOYC3 
00000253°EF Oget*aF 28 0145 683 *eavc3 SGET_LENGTHSGET_STRING,CR2Z2) sCapy cede te pool 
3* 8A 9150 e886 PoPR S9MERG RL eRZ.RI R44 RSD> Restore registers 
C1520 4a s : 
18 As 1c as oc €1 4282 £86 agou3 O17, ACHA_L_GET_ASTCRSD SACSSL_KASTCRS) SStere address of special 
6158 sar? 3 AST, skisping header in block 
0i$8 “88 
0258 489 : Be exactly the same thing fer the PUT AST 
0158 699 
$1 Cocococs °sF os 0158 641 SOVL SPUT_LENGTHO12 ,R21 sAlloees 12 bytes for a header 
00000000 °GF 14 O1SF 492 JS8 G*EXES ALONONPAGED 
76 $0 £2 0165 493 sisc 20,558 
20 as $2 oo 06168 494 mOVL R2,ACB_L_PUT_ASTCRS) 
82 TC 30026C 095 is i] CRZ)¢ sClear twe link lenguerds 
82 $1 80 O168 696 movu R1,CRZ30 sS$tere size 
82 79°«8f 95 «Citi 497 MOVZSM SOY M_K_PUT_AST sC(RZ)6 2Store type and clear spare byte 
01275 698 . 
36 6s 90175 499 PUSHER S*QCRO RIT RZRIRS RSD Save regtsters for MOVC3 
COCOC2ZEL “EF 00e9°sF 28 O77 $06 mQvCc3 SPUT_LENGTH,PUT_STRING.CR2) Copy code to peel 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 11 of 12) 


$ WS Set Jefault Iirectory String L7—MAV—1982 108212326 VAX—-11 Macre V¥O3—06 
Q2 USS GETCD Set Default Oirectory String P LT]-MAV@1982 10511566 WORKSCMUIZNIEKSSSYSPRGLUSSI 
. oF Sa 6181 SOx gee REMERA RL ORS RICKS RSD SRostore regtstors 
0183 s¢2 3 
6i83 $03 3: Ready tea queve the &$fF te the target precess. This routine does not 
0183 $06 3; make all the checks that are perforsed by SGETIPT. For that reason, 
6223 $0$ 3: the caller way have to veait for sere time for infersation te be passed 
6283 $06 3 back fram the target process. The one check thet sust be cade even 
0183 S67 3 Reree is shether the target process Res been deleted Cer is in the prece 
6233 $68 3: of being deleted). 
0383 $09 3 : 
01283 $19 3583 Serret 758 3Need te leck deen seme snore code 
$4 GC as 3C 00288 Sui MOVZWL ACESL_ OISCRS 84 sGet PID ef tsrget 
$i 00000600 °GF co «4018€ $i2 MOVE G*SCMSGL_PCBYVEC R21 sGet target °C8 address in PIC nan 
$4 6144 83 «46295 $13 MOVE CRLICR4I, RS 
oc as 60 Aé 02 0199 $26 Cree PCBSL_PIOCRE)-ACHSL_PIOCRS) sare PIDs the sane 
- 39 12. «0198 $25 SNEQ s0¢ sErrer if net 
36 26 Ae 62 Eo 91480 $16 ess @PCESV_DCELPENS PCSSL_STSCR4),508 Check if being deleted 
$4 C3 0145 $17 PUSHL Re sSave PCB address of target 
$46 86000006 °GF C2 Qtar7 $28 MOVL G*SCHSGL_CURPCS, 84 sGet current PC8 address again 
$2 78 &6 90 OLa€ $29 *OVL PCBSL_ JTECR47eR2 sCharge user for buffer froe quota 
1G a2 39 AS C2. Or82 $20 Susu ACBL QUOTAC RSI oSISSL_SYTCNTCR2) SQuotea stored in JI8 
16 45 cs 0187 $22 TsTt ACSSL_ aSTC RS) sany user AST specified? 
08 13° «0188 $22 #e€Qn 408 %Skip accounting if nene 
o18¢ $23 3TRHLs scceunting cannet be dene un 
arec $26 $s Nere because OCLAST in the error 
.618¢ $25 3 does its cen sccounting. 
38 46 87 418¢ $26 oecw PCS8u_ ASTENTCRSO) sCount AST against quets 
6S G8 as a6 €2 e288 S27 sess @ACBSV_ QUOTA, ACBSB_RMOOCRS) 408 
$2 06 eo 016 $28 468: MOVE SPRTS_TICON,&2 tGive # eheeping beest 
54 8866 61¢7 $29 PoPL R46 sClean vue stzek 
66600800 °GF 1&6 Gia $306 _ JS8 G*SCHSQAST 
$9 aocd°sF 3¢)=6 306 $3 “WQVZWL 8 *SSS_ NORMAL, 26 
6165 $32 SETIOL #80 
6& 0268 $33 RET 
0189 $34 5 Precess has gone ausy in the interim. Deallocate ACS and the 
6169 $35 3 twe code blocks thet cantain the GET and PUY ASTs and return through 
0169 $36 3 commen exit path. Entry $58 is used if an error occurs after sone 
8159 $37 3 of the theee poeal Slecks have already been allacated. Essentiallys 
616¢ $3¢ 3: the ACS is siways deallocarved. If the GET and PUT ASTe have been Laaded 
6289 $393 3 nensaged peel, these Slocks tust be deallocated, tes. 
$3 ocag’ sf 3¢ 66169 $46 SOS MOVZWL 49S _NONEXPR. 2G :THis is errer if sreeess has gone 
$6 60 e1B0€ Set $$$ PUSHE RO sSave status acress deallocation 
$9 26 AS 6G OL€0 $42 MOQVL ACBL PUT_ASTCRS),20 sany PUT AST? 
06 13) 9186 $43 seat 608 
acescoan cr 14 G1E4S $4 3$8 G* EXESOEANGNPAGED sIf see deallecate it 
$68 i¢ as co orec $45 6083 MOVE ACB_UL_GET_ASTCRS) oO sany GET AST? 
06 13 «©61F6 $46 sECt 70s . 
occeaces “GF 15 6282 $47 JS$8 G* EXESOEANGNPAGED sITf sae deallecate it 
$6 $$ 8G OFS $48 T0835 MOVE RSRO 3Get address ef poel to be deallec 
20000000 °CF 16 GOLF 54¢ JSss G* EXESCEANQNPAGED 
6261 $$0 SETTIPL #6 
$6 8E€ 66 98206 $$1 BOVE CSP}o,20 sRestore status 
Q6 120 «0207 $$2 SRE ERROR _ RETURN 2 and enter common exit path. 
COCOGdGT 4269 $33 7583s LONG IPLSE_SYNCH 
8260 $$4 ASSUME €.-358> LE 512 
0200 sss -OSAGK LSB 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-2: USSGETDD Procedure (Page 12 of 12) 


Get Oefault Oirectory String 1L17T—MAVY—1982 LOSLIS16 VAX-11 Macre v¥O03-00 Page 12 
ERRCR RETURN —- Common error return LI-MAY—1982 102822506 WORKSCMULINIEKS.STSPRG.USSIUSSGETOC1) 
6200 $$7 oSUBTITLE ERROR_ RETURN =- Caosmen error return 
6203 558 
6200 $39 se 
6200 $66 3 Tris is the common exit path for errors detected in arguaents 
0200 $61 3 to the service. The event flag is set. [f a status block vas 
0209 $62 3 specified, final status is reported there. If an AST eas requested, 
0209 $63 $ 4% 48 queued ta the caller Cfolless SGETIPI conventions). 
6209 $64 30 
6200 $és 
0200 566 ERROR_RETUQN? 
$0 83 06260 567 PUSHL RO sSave errer status 
$4 60060000 °GF 80 «662cF 568 MOVE G*SCHSGL_CURPCE. RO sHake sure 4 contents are correct 
Si 60 Ad 90 0216 $69 ROVE PCBSL, PTOC RO), R21 sGet PID of caller 
$2 0% a218 $70 Cure RZ the beest Rere 
$3 06 ac 80 G62%2¢ $71 MOVE EENCAP) RS sGet event flag nusber 
60000000°GF 15 0220 $72 Js G*SCHSPOSTEF 3 and set the flag 
$1 ie ac 6G 6226 $73 MOVL TOSSCAP) RI sGet status bleck sddress 
e9 130 «6228 S74 Secu 103 sBranch if nene specified 
622¢ $75 LENOWRT €4,¢€223,108 tAlse skip if inaccessible 
ot ot 06 6232 S76 ROVE CSP) oCRID sRepert final status 
ss 1@ ac 00 686235 S7T 108s MOVE ASTAORCAP) RS tGet AST address 
1s 13 0239 $78 Ss€Qu 2608 sSkip if nene 
$e oc 9238 $79 MOVPSL 24 “ sGet PSL 
$4 54 62 16 €® 0230 580 exTzyv SPSL SEV_PRYMOD, SPSLES_PRYMOD,R4,R4 SExtract caller’s access sade 
0262 $8i sOCLasTt_s CRS cASTPRNC AP) RA tQueue the AST 
01 2a 62506 $82 208: Pger 2*meRrg>d sRestere status 
, 0% 06282 $83 RET 3 and return 
0283 $846 : 





WRITING A USER-WRITTEN SYSTEM SERVICE 


The GET String AST Procedure 


Executes in context of target process 
- At IPL 2, since special kernel AST 


- Entered via JSB, not CALL, from AST delivery interrupt 
service routine 


Reformats initial ACB fields 
- So can use same ACB to queue PUT string AST back to caller 


~- Specifies AST should be another special kernel AST 


Loads default directory string into ACB 


=- No protection checks are necessary to guard against access 
violations in kernel mode since: 


e ACB in nonpaged pool 


e Default directory string in protected area of Pl space 


Checks that caller process still exists 


- Raises IPL to SYNCH 


Queues AST back to caller 


- So PUT string procedure can execute 


Deallocates GET string code block 
- By JMP to deallocate nonpaged pool routine 


- That routine exits with RSB, which returns control to AST 
delivery interrupt service routine 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-3: GET String AST Procedure (Page 1 of 2) 


Get Default Oirectory String TTW-MAY—1962 102212216 VAX—-11 Macrae ¥03-00 Page 13 
GET_STRING — Get string from user buffer 1T=MAY=1982 10331506 WORKSCRUTZNIEKS.SVSPRG.USSIUSSGETDCI) 
0283 $86 SUBTITLE GET_STRING — Get string froe user buffer 
0253 $37 
0253 S8e se 
0253 $69 3: This reutine executes as @ special kernel AST in the context of 
6253 $90 3: the target process. It leads the default directery string froa 
0253 $91 3: PL space into the extended ACB and uses the same ACB te aqueve 
0253 592 3 amether special AST back te the original caller of the service. 
02383 $93 3 
0253 $94 3 Input Paraseterss 
0253 $9$ 3 
62383 $96 3 ROSR3 - Seratch 
0233 $9? 3 4 - PCB address of target precess 
0253 soe 3: R$ ~- Address of extended ACS 
0253 $99 3 
6253 606 $s Calling Sequence: 
6253 602 3 
6253 602 3: 3$8 GET STRING free AST delivery routine at IPt 2 
6253 663 3: ; 
6233 $0% ¢ OGutnut Pereneters: 
02383 60S ¢ 
0233 $06 3 The defsult directory string is cepied fram the target process 
0253 $07 3 PL seace ta the end of the extended ACS. 
9253 608 ¢ 
6253 $09 3: Side Effects: 
0253 410 3 
0253 611 3 tf the initial calling process still exists. a special Ast 
0253 612 3 is queved to that process. The routine PUT_STRING e111 be 
0253 613 3 the AST that executes in the context of the original caller. 
6253 $616 t- 
8253 615 
0283 S16 GET_ STRINGS 
ac7e 38F #8 0253 S17 PUSHR B2°4CR4 RS, 86> 
oc as 30 AS 6o «68287 618 ROVE ACS_L_OLO_PLIOCRS),ACBSL_PIOCRS) sTurn ACS around 
18 45 20 45 ac €1 82s8¢ 619 acot3s 812 -ACE_L_PUT_ASTCRS3_ ACBSL_KASTCRS) SO0ifferent special AST 
6s as #0 «SF $¢ 0262 620 SIss2 RCLIACSSV_KASTS-ACSSA_RMGOCRS) Reset special bit 
$3 900000C00°GF = 0267 S22 MQVAS G*PLOSGT_OOSTRING. 23 
$6 63 9& G26£ 622 MOVZSL CRI} %, RE 3Save string caunt in R6 
$2 3¢. as 9€ O272% 623 aOVAS ACS_T_OGSTRINGCRS),R2 sR2 located counted string in ACS 
82 56 90 «6627¢ 4264. "O¥S8 RG eCRZ50 322 is nee correctly undated 
ooss sf 00 63 56 2¢ «68278 625 "QVCS RE CR3)D 80, SACE_L_ STR LENS CRZS 
oo7Ta SF 8a 0286 626 egre O2MC RO RS RED 
0286 $27 
0284 628 * Nee queve an AST back to the original caller 
0284 629 
6286 636 i683: SETIPU 3168 tNeed to raise IP here 
SL 30 45 3¢) 060288 631 “QVZWL ACB_LL_L OLD PTOCRS) RY 3Get PID CPIX only) of caller 
$2 000000039 °GF 60 «6O28¢ $32 MOVE G*SCHSGL_PCBVEC, RZ Get its PCE addreas 
$i $241 03 0294 633 mevE CRAICRLT RL ¢ in a PIC manner 
oe as éG At Ct 0294 834 cCmet PCSSL_PLTOCRL) ACBSL_PIOCRS) sSame PID in both places? 
tA 12 «029° $25 Sneg 208 sError if net 
15 26 at 01 EO 62a 626 ges SPCESV_OEL PEN, PCESL_STSCRID 5208 
$2 0% 6286 637 curt R2 SNe beest going this say 
6096030000 °SF 36 G2a8 538 JS8 G*SCHSGAST : 
O2a€ $39 SETTPL @LTPLS_ASTOEL Slower IPt back te 2 
$6 1¢ as eo 0281 640 "QVL ACBL GET_ASTCRS3,20 sand return to AST dispatcher 
C00900CO°GF 1% O2e8s 641 jue G* EXE SOEANONPAGED 3 theeugh DEANONPAGED 
6285 642 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-3: GET String ASt Procedure (Page 2 of 2) 


'$ 0 3et Default 2rectery String ; LV-MAY"L9S8Z 162212216 VAX-11 Macrae v¥03-900 
‘Ce SET_STRING - Get string froe user buffer LTOMAV19SZ 102512206 WORKSCMULINIEKS.SYSPRGUS 
e2e8 643 3 Griginel ezller has gene away. Deoalleceate ACB and simaly exit. 
6268 64% 
62286 645 2088 SETIPR €TPLS_ASTOEL SLewer IPL to 2 
1¢ as 00 O2B8E 546 PUSKL ACB_L_GET_aSTCRS) SSave GET AST block across deall 
$0 20 45 096 @2€1 667 ROVE ACBL PUT_ASTCRS)—RO sPuT AST black is the first te 9g 
80090000 °GF 16 O2C5 6483 3$8 G* EXESOEANGNPAGED 
$0 $# 00 6 6©02¢8 669 *OVL RS_RO 3Nee do the AC8 
09006000 °SF 36 O2CE 6$0 JS8 G*EXESOEANGNPAGED sBeallecate AC8 
$0 8€ 00 0206 63% OVE CSPI, 80 SFinally dealleocate the bleck 
o2n7 $2 $ containing this code 
006000300°GF 17 «#0267 6$3 JreP. G°EXESCEANONPAGES Sduse theres RSB in EXESCEANONPA 
0209 6$4 $ e111 eetuen to AST dispatcher. 
6260 635 
aocecoo?r e260 656 3088 oL ONG TPLS_USYNCK 
O2€1 6$7 
O2€2 658 ASSUME ¢.-1083 LE 512 
0261 $39 
G000098E 2&1 660 - GET_LLENGTH = . - GET_STRING 
0262 661 


WRITING A USER-WRITTEN SYSTEM SERVICE 


The PUT String AST Procedure 


e Executes in context of caller process _ 
- At IPL 2, since special kernel AST 


- Entered via JSB, not CALL, from AST delivery interrupt 
service routine 


e Checks to make sure image that called system service still 
executing : 


- To insure IOSB and AST address are addresses in calling - 
image, not some arbitrary image 


- An image counter in process header, PHDSL_IMGCNT, is 
incremented as part of image rundown 


e Access PHD through Pl space window 


e Rechecks protection of IOSB and location to receive directory 
string 


- Needed because of asynchronous nature of service 


- Possible for image to change protection of pages while 
ASTs executing (SSETPRT system service) 


- Prevents possible kernel mode access violations 
e Copies default directory string to specified buffer 
e Sets specified event flag 
e Loads IOSB, if requested 
e Tests for user-requested AST 
- If requested, reuses same ACB for user AST 
- If not requested, deallocates ACB 
e Exits by jumping to deallocate nonpaged pool routine 
= To deallocate block with PUT string procedure code 


- To return control to AST delivery interrupt service 
routine 





WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-4: PUT String AST Procedure (Page 1 of 2) 


u Too 


$6 
26 ag 


26 


78 
ge 


ag 


&s 
a$ 


33 060606006 °GF 
Gora C3 


36 AS 


63 48 


$2 
$3 
s¢ 


as 


03 


68 
56 


38 


68 
86 
b& 


0682 


t6 
3¢ 
26 
08 


se 
as 
as 
as 


A3 
09 


82 
63 


Get Default Ofirectory String 


LI-MAY~1982 102121316 VAX—-11i Macro Y¥03-66 


PUT_LSTRING ~- Return string ta original ¢ LI“MAY-1982Z 102521506 WORKSCMUIZNIERS.SYSPRG.US 


86 
ca 


C282 
O2E1 
0281 
O2€1 
O2E1 


0282 


02€1 
O2£1 
O2€1 
6281 
O2E1 
O2E1 
G2€% 
O2E1 
O2EL 
O2€1 
0281 
026% 
O2EL 
O281 
6261 
O2E1 
82Et 
@2EL 
628% 
O28% 
e2et 
O281 
O2E1 
6283 
6281 


O2E4 


O2E4 
8284 
OzE8 
O2€9 
62E6 
6260 
G2EG 
G2FS 
O2Fa 
o2rc 
636% 
6306 
03646 
9304 
0367 
6307 
6308 
o36F 
0313 
6317 
6320 
032% 
0323 
6329 
e32¢ 


725 
716 
T17 
718 
719 


«SUBTITLE PUTLSTRING = Return string to eriginal caller 
$e 
3 This reutine executes ss 2 special kernel AST in the context of 
3: the eriginal caller. It meves the default directory string 
$ ef the taeget precess from the extended ACB into the user specified | 
H 
3 Input Parsweoters: 
: 
: ROZRZ —- Scratch 
Hy R& = PCB address of original caller 
$ RS = Address af extended ACB 
: 
: Calling Sequence: 
3 J$3 PUT_ STRING feow AST delivery routine at IPt 2 
3 Gutput Parsectors: 
: 
$ The default directery string 13s copied from the extended ACS 
3 te the user specified buffer. . : 
: 
3 Side Efvectss 
: 
3 T# all aecees checks are OK, data is meved to user buffer. The 
? designated event flag is set. in AST aay be delivered if the 
+H eriginal call requested one. Suffered queta bytes are returned 
72 
PUT_STRINGS ; 
PUSHL ACBL PUT_ASTCRS) 3Save address af bleck centaint 
3 code for JNP exit through rou 
$ EXESOEANGNPAGED 
mOvt PCESL. JIBCRS) 20 sRestere quota bytes charged 
adou ACB_L_ QUOT AC RS D5 JTESL_SYTCNT CRO) 
3 Bake sure. that the same tmage is runningo 
MOVE G*CTLSGL_ PND, R3 
CrePL PHOSL  ERGCNTCR3) -ACB_L_IMGOMICRS) 
sea 16s 
sec @ACESY_GUGTA,ACBS8_ 2MO0CRS3.58 SWas caller’s AST aquots 
tncw PC ESM ASTECNTCRO) sGive it back because ASTDEL, 
3 which usually gives back AST 
3 Cannet,. because it never gets 
$3 gew 708 ; 
1683 PUSHR B*RCRE RS RE RT RE RID> SSave some registers 
nOVAS ACB _T_DOSTRINGCRS)R2 sAddress of caunted string in A 
ROVE ACB_L_OODESC (RS) ,R3 sGet huffer descriptor 
MOVZSL ACESS_RMOCOCRS) Rd sGet caller’s original access a 
TFNORO 8622,€R33 0408 ,RF sCan it still be read? 
MOV’. 8$CR3D,28 sGet address of length buffer 
Sec. 208 
TENGWRT £2,€828),403,29 sIs it eriteable? 
MOVZBW (R29, CRED 
2083 mOVW €R3> e026 sBuffer size ta %6 


Listing 2-4: 


16 13 

$7 Qe 43 oo 
o€ 13 

62 0053 sf 2c 
$0 00G0°SF 3¢ 
6s 32 

$0 9000°8F 3c 
Q3#6 8F ea 

50 03 

$3 28 a5 cs 
$1 60 46 ca 
$2 04 

00000000 °GF 16 
02 6a 

$3 2c as co 
0a 13 

63 $0 6a 

16 «4S os 

os 13 

$2 04% 

00000000 “SF 16 
09 12 

$0 $$ cs8 
06000900 “GF 14 
56 s€ be 
60000900 °GF 17 
eccoces9 


O32F 
6331 
0335 
0337 
6330 
0345 
O34a 
6346C 
034C¢ 
0351 
60351 
0355 
6357 
6358 
O3st 
036% 
0367 
0369 
@360 
0368 
0376 
0379 
0379 
0379 
0379 
0379 
a37¢ 
O3TE 
0380 
0386 
o3988 
0368 
0388 
0388 
6392 
0396 
0398 
Q398 
0394 
03948 


WRITING A USER-WRITTEN SYSTEM SERVICE 


PUT String AST Procedure (Page 2 of 2) 


720 
722 
722 
723 
72% 
728 
726 
727 
728 
729 
7306 
731 
732 
733 
734 
735 
736 
737 
73$ 
739 
740 
Tat 
742 
783 
Tes 
16s 
746 
767 


T48. 


749 
730 
781 
7$2 
733 
734 
735 
1$6 
737 
738 
759 


308: 


4083: 


S08: 


Get Default Oirectory String 
PUT_STRING = Return string to original ¢ 17T<MAYT—1982Z LOSLISOG WORKSCMUIZNIEKS.$SYSPRGCOUSSIUSSGETOC15 


SEQL 
WOVE 
SEQL 
TFNGWRT 
MOVCS 
mOVTWLE 
ere 


ROVZWL 


Pore 
PU SHE 
MOVL 
mOVE 
CURt 
JS8 
POPR 
mOVL 
SEQt 
TENOWRT 
aGVE 


LT—MAY-1982 10222516 VAX-11 Macre 03-00 Page 16 


308 S2f equal, then zera length buffer 
4CR3> RT 3 and address to R7 

303 SIf equals. none specified 

RE CRT3 0405 _R9 sfIs text buffer eriteable? 
@ACE_K_STR_LENSCRZ) 280 yRG oC RT) 

8SS3_NORMAL, RO 

$os 

8$S8_aCCVIG, RO 


GMCRA RE GRGE RT YRIRID FRestore registers 
RO sSave the final status 


ACB_L_ EPNCRS),23 : Get event flag nuaber 
PCBSL_ PIOCRS), 1 3 and PID of reauester 
R2 : tNe beast fer this 
SC*SCHSPOSTEF tSet the event flag 
@*n<CROD sRestere final status 
ACBL TOS8CRS) RS sany T0387? 

603 


06eCR3D SOS _ACEUSS_RMCOCRS) SSiaply ignere if net eriteadle 
RO~CRI> 


3 #4 an AST sas requested, then use the ACB one sere tine ta queve 
3 that aST te the caller. Otherwise, deallecate the extended ACS. 


6083 


7088 


Bess 


TSTL 
SEQt 
CLaL 
3$3 
ore 


MOVL 
J$8 
“ovt 
sme 


ACSSL_aSTCRS) sAny AST? 

708 Slt equal, then none 

RZ sNeo beest Here either 

G*SCHSQAST SQueve the regular AST 

80s SExit thereugh EXESQEANGNPAGED 
RS_RO sAddeess of ACB te be deallccated 
GC* EXESOEANONPAGED sDeallocate acs 

CSPIO,RO SNe desllocate cade block 
G*EXESOCEANONPAGED sAgaines exit sith a JAP 


PUT_LENGTM © . = PUT_STRING 


END 


id 


6&3 


60 
65 


60 


+3 


oF 
6€ 


68 6& 


Ze §3 


72 66 
69 74% 





——nrceeetetaatiitlaN ile SAbl ab ecto co a 


. WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-5: Test Program (Page 1 of 2) 


a066 

6000 

6609 

0009 

9600 

g000 

00690 

0006 

6000 

6000 

0000 

9000 

09000009 

0000 

eceo 

6oecoo0r C000 
66000003 9004 
60000928° 4008 
o0000B2C° O0cC 
ocegedsa’ C610 
G9600020° 00246 
G860G0R9° 0018 
coeeecaG § 063¢ 
o0e0gceaG 0920 
60000900 9626 
e0eogecs 6928 
eecoedes ¢o2c 
6OGGGG3e° 6030 
Gaescagsc 0834 
20 73 73 65 53 6F 72 SO O0SC 
20 38 06684 
GOGCOGGE G06A 
60600296 0064 
OGeCCaTS® COE 
QOGGGOT6° GOT2 
GGGGG90G 910075 
SEcoez27a Gare 
G278 

e800 G278 

59 $3 G@60G0294°O1G8G90G° G27C 
6& 6€ 62 60 465 6288 
C28F 

26 68 67 61 73 73 55 40 O28F 
TS 6F 72 20 S& $3 61 20 0298 
@0e0GG2S O2A7 
O2a7 

90000000 

60060 69000 

6002 

0602 

0002 

63 $6 €s 6017 
0083 31 4 «4GO24 
0010 

6610 

0639 

0915 


oe be 
OB ce SR RH 0 yy 


LT-MAV-1982 10212239 VAX~1i1 Macro V¥O3~00 
ZTMBRHLGGZ LSEZTE16 WORKSCMUIZNIEKS oSYSPRGOUS 


H TEST .MAR 

: This programs tests the defeult dfrectory systes 

H servicee [t proanpts the user for 3s precess nace 

3 and returns that user’s default directory string. 

3 Neto that the srecess being cxranmined must be in the 

: sawe group sas the process running this pregraw: if 

3 nets the "no such process® error sessage vill be 

3 generated Calso, aust use enter exact upper/locer 

H case Letters in process name). 
opsect nonshared_ dats pic, neexe, long 

arglists 3 asegument List for cali 
eleng ? ¢ seven paraneters 
eleng 3 + use £fu @€ 3 
eaddress pid 3 in case use PIS 
eaddress prcnant 3 using precess nare 
eaddress dddesel 3 deserister bleck 
eaddress iosbdi 3 Peturned status 
eaddress astrout 3 AST reutine address 
elong 8 3 aST pararncter 

fesbis .leng 6 3 alse used in Of0 calls 
e long 9 , 

vids eloeng 9 3 net used in this test 

prenawi: cleng 3 $ precess name desc. 


caddress pre 
ores eblkb 60 ? will be suoplied by user 
peet: easeiiv = /Peecess names / 
oe s . = past 


déddesels cleng S12 
eaddress buffer 
eaddress bufient 

buflenis cleng 6 

buffer? .Bikh $12 


Leave lots ef space 
default dir string returned 
length ef default dir string 


ttekans oword 6 
ttnawes .aseid /SYSSCOmmanos 


*: used te cemaunicate sith tty 


aves: eascii /Message fros AST routines 


alen = . - ames 


epsect code pic, she, noert 
start: .serd 8 3 S@ve no registers 
: Establish channel te tersinal 
| $assign_s chancettchan, cevnamettnaas 
bibs eG, 16% 
ves err 
3 Get precess nare 
19s: S$aiowe_s chansttchan, funcetios reasdprosptriosbsiasbl, - 
pl=pre .922440,05"t pant, pdstpa 


‘002C° fF 


10000°GF 


$i 50 
00000022° EF 


60000000 “EF 
38 50 


2¢ $8 
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Listing 2-5: Test Program (Page 2 of 2) 


€9 
3c 


fa 


€9 


&9 


Cs 


64 


004Cc 
ooseF 
Cosa 
6eSsa 
Oosa 
0965 
0068 
6068 
6068 
OOTt 
Oo7s6 
OST 
Oo74 
oggF 
00490 
o6a0 
6040 
OGA9 
0049 
Q0a9 
6049 
00a6 
0088 
00a8 
eot2 
6003 
6003 


ae 


errs 


astroauts 


LT%—MAV—1982 10211539 VAX=—-i1 Macre V¥03-00 Page 2 
ZT—MARH19UZ LSSZTI16 WORKSCHUIZNIERS.STSPRGW.USSITEST.MACL) 
blbe ea, corr 
mevzul iesbi+2, prensa 2 set process name len. 


Call user-eritten systea service te get default dir. string 
esilg aerglist.gq*uss_getdd 
blbe e0,err 


Wait fer reauvest te complete using EFN 8 3 

Seaitfer_s efnes3 

bloc e0.err 

Print default directory 

Sailoe.s chansttchan, funcssioct_ sritevolksplisbuffer,s2ebufleni.o42832 
Peet 


Seeee exit path 
Sexit_s *°6 


AST reutine entered before event flag sait satisfied 
eserd 06 ‘ 2 save ne registers 
Oisplay secssge indicating AST delivered 
Saieow_s chansttchan, functtios eritevolk,ol semes,p2a0al on, 942832 


eet 


cond start 


2-44 
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WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-6: MAKETEST.COM Command Procedure 


160 

206 

300 

4600 

$69 

606 

706 

$60 

$60 
1066 
32106 
1200 
1300 
1460 
1$00 
1600 
2766 
1866 
1966 
2600 
2100 
2206 
2366 
2406 
2366 
2608 
2700 
2866 
2968 
3066 
3160 
3200 
3300 
3¢00 
3500 
3600 
3700 
3866 
3906 


‘ 


MAKETEST.COM 


st 
$1 
$f Tris cowmand precedure builds 211 cenponents for the 
$¢ defsult directory system service, dispatcher, and 

St Sseeple test pragras. 

$i 

3 


SET veRIFY 
st 
<1 First, asseable and link the systee service and dispatcher 
$1 


$ MACRO/LIST USSGETDO. MAR @ SYSSLISRARYSLIS/LIS 

$ LINKR/PROTECT/NOS YSSHR/SHARESUSSGETOOCMAPSUSSGETOO/FULL SYSSINPUT/OPTIONS 
t 

Getions file for the link of User System Service exanple. 


SYSSSYSTEMSSYS.STB/SSELECTIVE 
I 
t Create 8 separate cluster fer the transfer vector. 
t 
CLRUSTERSTRANSTER VECTOR o oSYSSOISKSC IUSSGETOOS 
i] 


GSMATCHSLEQUAL elei 

S| . 

$4 Nexte asseeble and link test srogren 
St 


$ MACRG/LIST TEST 
S$ LINK TEST/MAPSEULL oSYSSINPUT/OPTIONS 
! 


1 Setions file for USSTEST 
USSGETOD. EXE/SHARE 

$8 

$s? Prepare te test progran 

$f 


& SET PROCESS/PRIVaCCRKENL .SYSPRV, WORLD) 

$ COPY USSGETCOWEXE SYSSSHARES 3, & 

$ PURGE S.MAP, SLLISe BeO8de SoEXEs SYSSSMARESUSSGCETON.EXE 
S$ RUM STSSSYSTEMS INSTALL 

SYSSSMARESUSSGETOS. EXEs/SHARESFOGTECT 

3% SET NGVERIFY 


WRITING A USER-WRITTEN SYSTEM SERVICE 


Listing 2-7: Sample Run 


® SHOW PROCESS/QUOTA 


L4-HMAV-1982 18233244.80 OPACs 

Process Quotas: 
Account nsee! ; 
CPU limit 3: Iafinite 
Buffered 3/0 bwte count auota ; 2192 
Tisee eueve entry eucts ¢ 10 
Padine file auata ! 9854 
Default pase fault cluster ; 64 
Eneveve auota ° 100 


% 
SHOW SYSTEM 
VAX/VAS X13 JP 
Pid Process Naeae 
06010000 NULL 
90020001 SWAPPER 
00010043 FRIEDMAN 
00060048 OPAC! 
00090046 MARSH 
90010047 REMACP 
000130048 EVL 
00010049 NETACP 
0001004Aa. PRISYNB!I 
00010048 OPCOM 
0001004C JOB.CONTROL 
0Q0A004D MUIZNIEKS 
QQ01004E DRAOBACP 
GOO2ZOO4F. ERRFHT 


0007000 COM 


0222040 LEF 
0120230 CUR 
0229220 LEF 
002,003 HIZB 
0012004 HIB 
0017004 HIB 
0027004 LEF 
0027004 LEF 
0012004 HIS 
011/250 LEF 
001,003 HIB 
0012006 HIB 


$ 
 & SET PROCESS/PRIVE( CMKRNL» WORLD) 


% 

$ RUN TEST 

Process nane: MARSH 
Message fros AST routine 
CMARSH.RNO I 

es 
$ RUN TEST 

Process nase: .CPA0: 
Messase from AST routine 
COUT ERTERS SSI SE RO Uses 


$6 RUN TEST 

Process neeset NU 

Messese froe AST rautine 
ZSYSTEMN-U-NONEXPR:e nonexistent rrocess 


¢ 
$ SHOW PROCESS/QUOTA 


L4-MAV-1902 18°35501.99 OPAd: 


Process Quotas: 


Account nsee: 

CPU limit ¢ 

Buffered [1/0 bwte count eucta : 
Tiser eueve entry eucta ; 
Pesine file euots ° 

Default sede fault cluster ; 
Eneveue auota : 


o- 
N@UO@@WO 2 G2 Hd 


Processes on 14-HMAY-1982 18333°353.47 
UIC State Pri Dir. 


t) 


000000 HID 16 


Infinite 
8292 


9834 


100 


User %: MUIZNIEKS 


Birect 3/06 lisit ° - 6 
Buffered I/0 Limit: 6 
Qeen file euotsa ;: 37 
Suberocess aucts : 2 


AST limit : 


Urtiae % 02340306 


17a CPU Pase flts Ph.Mee 
@ 62224255.02 ° 0 
@ 00300507.74 ° a 
404 062015013.34 $940 a0 
274 00300524.46 $384 123 
18 00:06°02.25 470 91 
1 00300:00.07 32 22 

2 00300:300.384 161 20 N 
217218 00°01:00.6S 2086 1335 

33F 00300330.43 $57 33°S 


2 06360800.18 43 74 


107 00:300303.25 176 120 
342 00500235.76 8633 97 
3460 00201°527.49 33569 176 
70 002300301.05 26 46 
User $ MUIZNIEKS 
Direet 1/0 lisit ° 6 
Buffered 1/0 linit: 6 
Oren file euata ; 37 
Suberocess auct2 : 2 
AST lisit : 9 
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WRITING COMMAND LANGUAGE INTERPRETERS 


INTRODUCTION 


Every interactive computer system requires some kind of command 
language that allows a user to specify the operations that are .-to 
be performed on the system. A Command Language Interpreter (CLI) 
is procedure-based code that executes in supervisor mode, in the 
context of a process, to receive, check the syntax of, parse, and 
perform commands entered by a user. VMS supports two CLIs - DCL 
and MCR. The DIGITAL Command Language (DCL) is the primary 
command language on VMS, while the Monitor Console Routine (MCR) 
is provided primarily for compatibility with PDP-11 systems. 


There are several ways in which the command language interface can 
be altered. In previous courses you learned how to use symbols to 
tailor the DCL command environment. - You also learned how to 
create foreign commands that could obtain information from the 
command line that invoked them. In addition to the command 
language, VMS provides a command language editor that allows you 
to add new commands to DCL (on a »per-process or system-wide 
basis). It also provides a set of run-time routines for obtaining 
information from the command line. 


If the type of command interface you need to build cannot be 
represented in a DCL-like manner (with commands that have 
parameters and qualifiers), or if you need faster command 
interpretation, or if you require features and capabilities that 
cannot be achieved using DCL, you may have .to write a totally 
independent command language interpreter. 


This module discusses how to use the DCL command language editor 
to extend the capabilities of DCL. In addition, the basic 
structure of a CLI is analyzed to aid you in writing your own CLI. 
It is highly recommended that you try to solve your problem by 
building on DCL, using the command Jlanguage editor rather than 
writing your own CLI, since the system interfaces are much 
stabler, more formalized, and better documented. 


i aa AES 


WRITING COMMAND LANGUAGE INTERPRETERS 
OBJECTIVES 


e Use the command language editor to add a new command to DCL. 


e Write an alternative command language interpreter (CLI) to DCL 
and MCR. . 


RESOURCES 


LOGINOUT source listings 

DCL source listings 

MCR source listings 

VAX-l11 Utilities Reference Manual 


VAX/VMS Internals/Data Structures 


WRITING COMMAND LANGUAGE INTERPRETERS 


TOPICS 


Ways to modify the Command Language Interface 
Command Language Interpreter 

Command Language Editor 

VMS CLI 


Sample CLI 
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Ways To Modify The Command Language Interface 


Modifying 


Replacing 


| METHOD 
DCL 
Symbols 
Foreign 
Command 
Editor 
DCL 


Writing 
CLI 


Commands 


Language 


your own 


COMMENT 


Per-process 
Per-process 


Per=-process 
and 
System wide 


Only if above 
methods fail or 
not possible 
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USER 
COMMAND 
STRING 





PARSING 
ROUTINES 


COMMAND 













TABLE 









COMMAND 
|} LANGUAGE 
ROUTINES 






EXTERNAL 
PROGRAMS 
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Figure 3-1 DCL (CLI) Overview 


Command String parsed according to 


information in command 
language table 


Internal routine or program invoked to 


perform requested 
operation 


reer acc Arh teats atta saa ECS 7 
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COMMAND 
DESCRIPTOR 
FILE 









P41 Pi 





COMMAND 
LANGUAGE 
1; EDITOR 


OR 






OR 


COMMAND TABLE 
FILE 






COMMAND TABLE 
FILE 





| 
+ 
4 
s 
i 


(LE. SYSSSHARE: 
DCLTABLES.EXE) 


TK9I8S 
Figure 3-2 The Command Language Editor 


Command Language Editor invoked with the “SET COMMAND" DC 
command. 


Command format is: 
SSET COMMAND/qualifier(s) File spec 


Command qualifiers and the file spec govern what will occur 


The file spec is called the “Command Language Descriptor 
file. 


The DCL table input can be from: 
1. Your Pl space 
2. A DCL Command Table File 


Output can B® go to: 
1. Your Pl space 
2. A DCL Command Table File 


WRITING COMMAND LANGUAGE: INTERPRETERS 


The SET COMMAND Qualifiers 
FUNCTION QUALIFIER 


Specify the Command Table . 
file to be edited /TABLE= file spec 


Specify the output location 
of the edited Command Language 


Table file /OUTPUT= file spec 
Delete one or more DCL verbs /DELETE=(Verb,...) 
Create Listing /LISTING 


Create Object file parsing 
table (See CLISDCL_PARSE) /OBJECT 


3-9 
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WRITING COMMAND LANGUAGE INTERPRETERS 


Command Language Descriptor (CLD) File 


The CLD file is the parameter file for the SET COMMAND. Lt 
contains information on DCL verbs that are to be added/modified. 


ae 


Basic Command Language Descriptor Format 
DEFINE VERB winkin 
| IMAGE — blinkin 
PARAMETER Pl, options 


QUALIFIER qualifier name, options 


1. DEFINE VERB 
Specifies the verb's name is "winkin" 


2-2 IMAGE 


The image to be invoked is called “blinkin". 
The directory default is SYSSSYSTEM. 
The file type default is .EXE. 


3. PARAMETER 
Defines a parameter for the command. 
The symbol Pl identifies the first parameter. 


4. QUALIFIER 
Defines a qualifier for the verb. 


WRITING COMMAND LANGUAGE INTERPRETERS 


Examples 
1. Add averb to the Pl table 
S$ SET COMMAND GOGETEM.CLD 


GOGETEM.CLD 


2. Delete a verb in Pl space 
$ SET COMMAND/DELETE= (COPY) 


3. Replace present decltables in Pl space with a prepared set of 
tables. 


$ SET COMMAND/TABLE=SYSSSHARE: ALMOSTDCL.EXE 
Using the /OUTPUT qualifier will alter each of the above 


examples to create DCL table files instead of changing Pl 
Space. 


Maran htryY 
EX CLAS IVE 


| 


WRITING. COMMAND LANGUAGE. INTERPRETERS 


FUNCTION 


CLD Keywords 


Image name to be run 


Internal routine name 


Internal routine CLD 


Parameter 


Parameter 


Qualifier 


Qualifier 


and position 


Characteristics 


and name 


characteristics 


KEYWORDS 


IMAGE (oee= vere rv anré) 
ROUTINE 

MODULE (discussed later) 
PARAMETER [Pn] 


LABEL=name 

PROM PT=string 

VALUE= REQUIRED 
DEFAULT=string 
LIST 
TYPE (discussed later) 


QUALIFIER name 


LABEL=name 
PROM PT=string 
DEFAULT 
BATCH 
[NON] NEGATABLE 
PLACEMENT= GLOBAL 
LOCAL 
POSITIONAL 
VALUE= DEFAULT 
LIST 
TYPE (discussed later) 
SYNTAX (discussed later) 
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Partial Listing of EDIT.CLD 


define verb edit 
image edt 
prefix cliS$k edit 


parameter pl,prompt="File" ,value (required ,type=Sinfile) 


qualifier decide 


qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


qualifier 


qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


exact 
expert 


increment, 


isave, 
line 
listing, 
lower 
output, 
pline, 
read_only 
save, 
start, 
step, 
truncate, 
tab 
checksum, 
report 
header 
update, 
edt 
command, 
recover 
journal, 
bak, 

num, 


value 
value 


value (type=Soutfile) 


value (type=Soutfile) 
value 


value 
value 

value 
value 


value 


value (list) ,placement=local 
default,value(type=Sinfile) 
default,value(type=Sinfile) 


default 
default 


eutputs (output,listing) 


Listing 3-1 Part of EDIT.CLD 
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Using SYNTAX and TYPE to Modify Command Definitions 


DEFINE SYNTAX namel 
{ IMAGE] 
agian 

DEFINE TYPE name2 
KEYWORD | 

DEFINE VERB abbott 
IMAGE costello 


PARAMETER Pl, VALUE (TYPE=name 2) 
QUALIFIER HELP, SYNTAX=namel 


When qualifier HELP is used, the alternate SYNTAX 
used. 


TYPE name2 defines tha value used in the parameter. 


Namel and name2 must be DEFINEd before being referenced 


namel 


parameter and/or qualifier. Note order in sample above. 


in 


is 


a 


WRITING COMMAND LANGUAGE INTERPRETERS 


Some of the TYPE Designation Definitions 


TYPE Designations 


SDATETIME 
SDEVICE 
SDIRECTORY 
SINFILE 
SINLOG 
SINSYM 
SNUMBER 
SOUTFILE 
SOQUTLOG 
SPROCESS 


SUIC 
Tirov 6 


¥ oursyy 
¢ PRivitece 


& PRoTEeemaNn 


Meaning 


Date/Time Specification 
Device Name 

Directory Specification 
Input File Specification 
Input Logical Name 

Input Symbol Name 

Numeric Quantity 

Output File Specification 
Output Logical Name 
Precess Name 


UIC Specification 


No Foe Aer CHECI ARF THiS TEmEé 
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Partial Listing of EDIT.CLD 
define syntax edit using sos 
image backtrans 


define syntax edit_using_slp 
image backtrans 


define syntax sumslp 
image sumslp 


define type audit options 
keyword position,value 
keyword size,value 


define verb edit 
image edt 
prefix cliS$k edit 
parameter pl,prompt="File” 
qualifier audit trail, 
qualifier decide 


,value (required ,type=Sinfile) 
value(list,type=audit options) 


qualifier 
qualifier 
qualifier 


exact 
expert 


increment, 


value 


qualifier isave, value 

qualifier line 

qualifier listing, value(type=Soutfile) 

qualifier lower 

Qualifier output, value (type=Soutfile) 

Qualifier pline, value 

Qualifier read only 

qualifier save, value 

qualifier slp, Ssyntax=edit_ using_ slp 2.) 
qualifier sos, syntax=edit _using_sos rt) 
qualifier start, value 
qualifier step, value 

gualifier truncate, value 

Qualifier tab 

qualifier checksum, value 

qualifier report 

qualifier header 

qualifier sum, syntax=sumslp 3°) 
qualifier update, value(list) ,placement=local 
qualifier edt 

qualifier command, default,value(type=Sinfile) 
qualifier recover 

Qualifier journal, default,value(type=Sinfile) 
qualifier bak, default 

qualifier num, default 


outputs (output,listing) 


Listing 3-2 Part of EDIT.CLD 


3=16 


FUNCTION 


Get value 
parameter 


Check for 


paramater 


WRITING COMMAND LANGUAGE INTERPRETERS 


CLI Callback Routines 


of 
or qualifier 


presence of 
or qualifier 


Issue error if some 
unprocessed parts of 
command in buffer 


Parse a command string 
based on predefined 
parsing table 


Invoke internal routine 
for verb specified 


ROUTINE 
CLISGET VALUE (label ,retbuf) 


CLISPRESENT (label) 
CLISEND_PARSE () 


CLISDCL_PARSE(cmd_string,table_names) 


CLISDISPATCH () 


SaL7 


we Se Bo Be YO 


WRIT 


ING COMMAND LANGUAGE INTERPRETERS 


NAME.MAR 


This program will obtain the information from 
a command line and process it. 


eTITLE NAME 
SDSC DEF 
SCLIDEF 


ePSECT NONSHARED DATA PIC, NOEXE, LONG 
FIRST NAME: ~ 


»BYTE DSCSK_DTYPE T, DSCS$K_CLASS_D 


.BYTE DSC$K_DTYPE_T, DSCS$K_CLASS D 


-BYTE DSCSK_DTYPE_T, DSCS$K_CLASS_D 


~-BLKW 1 
eBLKL 1 
LAST_NAME: 
~BLKW 1 
sBLKL i 
MIDDLE_NAME: 
-BLKW 1 
~BLKL 1 
FIRST: 
LAST: 
MIDDLE: 


me MO 


me fe 


ePSECT CODE 
-ENTRY BEGIN 


-ASCID /FIRST/ 
eASCID /LAST/ 
-ASCID /MIDDLE/ 


PIC, SHR, NOWRT, LONG 
, ~M<> 


Get values for parameters and qualifiers 


PUSHAQ FIRST 


NAME 


PUSHAQ FIRST 
CALLS #2,G*°CLISGET VALUE 
PUSHAQ LAST NAME 


PUSHAQ LAST 


CALLS #2,G°CLISGET VALUE 
PUSHAQ MIDDLE NAME 
PUSHAQ MIDDLE 

CALLS #2,G°CLISGET_VALUE 


Process paramters and qualifiers 


PUSHAQ FIRST 


NAME 


CALLS #1,G*LIBSPUT_OUTPUT 
PUSHAQ MIDDLE NAME 


CALLS #1,G°L 


IBSPUT_OUTPUT 


PUSHAQ LAST NAME 


CALLS 41,G*L 
RET 
. END BEGIN 


IB$PUT_OUTPUT 


Listing 3-3 NAME.MAR Program 


3-18 


WRITING COMMAND LANGUAGE INTERPRETERS 
Command Language Descriptor File for NAME.MAR 


DEFINE VERB name 
IMAGE my directory:NAME 


PARAMETER pl, PROMPT="First Name", 
LABEL=first, 
VALUE (REQUIRED, LIST) 


PARAMETER p2, PROMPT="Last Name", 
LABEL=last, 
VALUE (DEFAULT="student") 


QUALIFIER middle, VALUE (REQUIRED) 


Sample Run of NAME.MAR 


SNAME 

$DCL-W-IVVERB unrecognized command 
\NAME\ 

$ 

$SET COMMAND my _directory:NAME.CLD 

$ 

SNAME 

$ First Name: Laura 

$_Last Name: 

LAURA 


student 
SNAME/middle=elizabeth 
S$ First Name: Laura 

S$ Last Name: M 

LAURA 

ELIZABETH 

M 

$ 
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COMMAND.MAR 
This program contains a command language, and 
uses the command language interface routines 
to parse and process the commands. 


The macro to check the status after a routine 


we SO Ze Be TE VE BZWH BS 


eMACRO CHECK STATUS code=rfi, ?go 


bibs code, go 

“pushl code 

calls #1, g°libS$stop 
go: 

eendm check_status 


TITLE COMMAND 
» LIBRARY /MARSLIB :MACROS/ 
SCLIDEF 
SDSC DEF 


we 


~PSECT NONSHARED DATA PIC, NOEXE, LONG 
COMMAND: 


-BLKW ol 
~BYTE DSCS$K_DTYPE_T, DSC$K_CLASS D 
-BLKL 1 


PROMPT STRING: 
eASCID /TEST> / 
ePSECT CODE PIC, SHR, NOWRT, LONG 
-ENTRY BEGIN, “*M<> 


; Get the input line 
GET_COMMAND: 
PUSHAQ PROMPT STRING 
PUSHAQ COMMAND 
CALLS #2,G*LIBSGET_INPUT 
CHECK STATUS = 


me 6 


Check for valid syntax 
PUSHAQ TEST TABLES 

PUSHAQ COMMAND 

CALLS #2,G*CLISDCL PARSE 
CHECK STATUS ~ 


me te 


Dispatch to the appropriate routine 
CALLS #9,G° CLISDISPATCH 

CHECK STATUS 

BRW GET_COMMAND 


Listing 3-4 COMMAND.MAR program (page 1 of 3) 


WRITING COMMAND LANGUAGE INTERPRETERS 


REPORT COMMAND,“ M<> 


ENTRY 
~SAVE 
~PSECT NONSHARED DATA PIC, NOEXE, LONG 
ERROR: eASCID /Error in file name/ 
SUB NAME: 
* YASCID /MY_SUB/ 
FILE NAME: 
~BLKW 1 
~BYTE DSCSK_DTYPE_T, DSCSK_CLASS_D 
-BLKL 1 a 
MY_ COMMAND: 
-ASCID /PRINT / 
DST: - BLKW 1 
~BYTE DSCS$SK DTYPE T, DSCS$K CLASS D 
~BLKA 1 on = = a 
FILESPEC: 
-ASCID /FILESPEC/ 
EDIT: eASCID /EDIT/ 
-RESTORE 
-PSECT CODE PIC, SHR, NOWRT, LONG 
c 
; Retrieve the file specification 
PUSHAQ FILESPEC 
CALLS #1,G°CLISPRESENT 
BLBS R@,SUCCESS 
PUSHAQ ERROR 
CALLS #1,G°LIBSPUT OUTPUT 
RET ~ 
SUCCESS: 
PUSHAQ FILE_NAME 
PUSHAQ FILESPEC 
CALLS #2,G°CLISGET VALUE 
BLBS RG@,WORKED — 
RET 
WORKED: 
PUSHAQ EDIT 
CALLS #1,G° CLISPRESENT 
BLBC R@, PRINT 
CALLS #G,EDIT QUALIFIER 
PRINT: - 
; Create command 
CLRW DST+DSCSW LENGTH 
PUSHAQ MY COMMAND 
PUSHAQ DST 
CALLS #2,G° STRSAPPEND 
PUSHAQ FILE NAME 
PUSHAW DST 
CALLS #2,G*STRSAPPEND 


Listing 3-4 COMMAND.MAR Program 


(page 2 of 3) 


5=21 


=e WE 


=e Se 


me te 
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Print the file 


CLROQ 
CLRQ 
CLROQ 


PUSHAQ 


CLRQ 
CLRL 
PUSHAQ 
CALLS 


~ (SP) 

- (SP) 

- (SP) 

SUB_NAME 

- (SP) 

~ (SP) 

DST 

#19,G°LIBSS PAWN 


CHECK STATUS 


RET 


- ENTRY 


SEXIT § 


RET 


~ ENTRY 
. SAVE 


EXIT_COMMAND, “ M<> 


EDIT QUALIFIER, “M<> . 


-PSECT NONSHARED DATA PIC, NOEXE, LONG 
EDT_COMMAND: ~ 

eASCID /EDIT / 

«RESTORE 

-PSECT CODE PIC, SHR, NOWRT, LONG 

Create command 

CLRW DST+DSCSW LENGTH 

PUSHAQ EDT_COMMAND 

PUSHAQ DST 

CALLS #2,G*STRSAPPEND 

PUSHAQ FILE _NAME 

PUSHAW DST 

CALLS #2,G*°STRSAPPEND 

Invoke EDT 

CLRQ - (SP) 

CLRQ - (SP) 

CLRQ -(SP) 

PUSHAQ SUB NAME 

CLRQ - (SP) 

CLAL -(SP) 

PUSHAQ DST 

CALLS #19,G°LIBSSPAWN 

CHECK STATUS 

RET 

. END BEGIN 


Listing 3-4 COMMAND.MAR (page 3 of 3) 
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Command Language Descriptor file for COMMAND.MAR 


MODULE TEST TABLES 

DEFINE VERB REPORT 
ROUTINE REPORT COMMAND 
PARAMETER Pl, LABEL = FILESPEC 
QUALIFIER EDIT 

DEFINE VERB EXIT 
ROUTINE EXIT COMMAND 


Sample run for COMMAND.MAR 


$ SET COMMAND/OBJECT=TEST TEST.CLD 
S$ MACRO/LIST COMMAND .MAR 
$ LINK COMMAND,TEST 


$ RUN COMMAND 


TEST> 


A diate fost 
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Legal Commands for COMMAND.MAR 
1. REPORT file spec 
Print the file 
2. -REPORT/EDIT file spec 
Allow editing before printing the file 
3. EXIT | 


Exit the program 


ob rem oa a TEL cl 
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CLI Overview 


PROCESS 
CREATION 
USER 
LOGINGUT (LOGOUT) CALL SEXIT AT ———» PROCESS 
EXECUTIVE MODE DELETED 
(LOGIN) 


CLI INITIALIZATION CODE 


CLI MAIN LOOP 





—~ ESTABLISH EXIT HANDLER 

—- GET USER COMMAND 

— CALL IMAGE TO PERFORM COMMAND 
(MAYBE LOGINOUT) 





IMAGE CALLED 


IMAGE EXECUTES 


SEXIT SYSTEM SERVICE CLI 
eR TES Seanianmtnennenimanenmbmasimimnmentiny 
IMAGE EXITS IN USER ACCESS MODE EXIT 


HANDLER 


TK-9182 


Figure 3-3 CLI Overview 
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LOGINOUT 


e Found in SYSSSYSTEM: LOGINOUT. EXE 


e Validates username and password 


@ Maps requested CLI (from SYSSSYSTEM:cli.EXE) 

- CLI specified by /CLI=cliname after USERNAME 
~- If missing, try value in UAF 

~- If missing, uses DCL 

~- Starting address of CLI in CTLSAG CLIMAGE 


- CLI file must be INSTALLed (usually /SHARE) 
e Establishes process permanent files (SYSS...) 


e Initializes CLI-~-independent data area (PPD) 


e® Exits with REI (from executive mode) 
=~ To transfer control to CLI base address 
- CLI entry point should have NO entry mask 


- To switch to supervisor access mode 


WRITING COMMAND LANGUAGE INTERPRETERS 


LOGINOUT-CLI Communication 


e Data Structures Involved (in Pl Space) 


~ 


2: CTLSAG_CLIDATA 














PPD AREA 
SHARED BY 
LOGINOUT 

ANDO CLI 









LG! AREA PRC AREA 
USED ONLY 
BY 

LOGINOUT 














USED ONLY 
BY CLI 
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Figure 3-4 LOGINOUT-CLI Communication 
@e LOGINOUT to CLI Communication 


~- Logical Names 


e PROCI1-8 ; procedures to execute intially 
e@ P1-8 ; Parameters for batch jobs 
e SYSSxxx ; process permanent files 

- PPD Area 


Descriptor of CLI private data area 

Descriptor for symbol table storage 

Flags (Disable Control-Y, Type of Process) 

Channel to SYSSINPUT 

Descriptive information about SYSSINPUT and SYSSOUTPUT 


@e CLI to LOGINOUT Communication 


- Final status code in PPD area 
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CLI Initialization Code 


® Entered following REI from LOGINOUT (no entry mask) 
.@ Establishes initial call frame 
- So can establish condition handler for CLI 


- Uses CALL instruction 


e Establishes supervisor stack pointer (CTLSAL_STACK+8) 
e Runs down LOGINOUT image (SRUNDWN) 
e Deletes unneeded logical names created by LOGINOUT 


- Leaves process permanent files (in executive mode) 


e Does any CLI-specific initialization 
- Initialize process RMS structures to allow terminal I/0 
- Establish CHMS handler (SDCLCMH) 
@ Entered with change mode code on stack 
e Must remove code from stack 


e Exits with REI 


- Establish CLI callback routine (CTLSAL CLICALBK) 


- Anything else the CLI needs to do once 


e Enter CLI main loop 


WRITING COMMAND LANGUAGE INTERPRETERS 


CLI Main Loop 


e Establish condition handler for CLI errors 


- 


e Establish exit handler (SDCLEXR) 
- Will return control back to main loop following image exit 
-~ If missing, process will be deleted 


- Want exit handler declared at supervisor access mode 


e Prompt user for CLI-specific command 
- Do command specific processing within CLI, or 


- Run external image 


@ Loop for next command 
- Store final exit status in CLI-independent data area (PPD) 


- Run SYSSSYSTEM: LOGINOUT.EXE to log user off 


WRITING COMMAND LANGUAGE INTERPRETERS 


Invoking Images From CLI 


Save supervisor mode SP in CLI-specific fashion 

- Will be needed by exit handler to return control to main 
loop . 

Use SIMGACT to activate image 

-~ Does not transfer control to image 


- Sets up page tables for image 


Change to user access mode (via RET) 
Create top level call frame for image (via CALL) 


- Establish EXESCATCH ALL as condition handler 


Establish EXESCATCH ALL as last chance handler ($SETEXV) 
Perform address relocations (SIMGFIX) 
Build CLI argument list to pass to image (4 arguments) 


1. Address of Transfer Vector Array 


2. Address of CLI Utility Dispatcher (Callback Routine) 
3. Address of Image Header 

4. Address of Image File Descriptor 

5. Link Flags From Image Header 

6. CLI Flags 


CALL image at first transfer vector 
If image returns, JMP to G°EXESEXIT_IMAGE (for SEXIT) 


- Image may not return if calls SEXIT directly 


Control will be returned to main loop by exit handler 


3-36 


NAME 


DF LTNAME 


ADRBUF 


IMGCTL 
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Arguments to SIMGACT 
String descriptor of filename to activate 
String descriptor for default file name 


Address of 512 byte buffer in which image header, 
image file descriptor, and address of most recently 
used FAB are returned. The first 3 longwords in 
the buffer are the addresses (in the buffer) of: 
1. The image header (SIHDDEF) 
2. The image file descriptor (SIFDDEF) 
3. Address of FAB for most recent open 
(FAB is in image activator scratch 
Pages, or § if no FAB available) 


Image activation control parameters 

Bit @ = IACSV NOACNT (set if not activating image) 
Used by INSTALL to complete enhancement of 
known file entries 

Bit l= IACSV_WRITABLE (set if image is writeable) 

Bit 2 = IACSV SHAREABLE (used in recursive call) 
Set if image is shareable image being 
activated as part of executable image 


Bit 3 


u 


IACSV PRIVILEGE (set if executable image 
has amplified privileges) Requires the 
shareable image to be installed as a 
Known file (bit 2 also must be set) 


Bit 4 = IACSV_MERGE (merging one executable image 
into address space of another) Causes 
the stack, I/O segment, and privilege 
amplification to be ignored. Must be set 
to allow call from user access mode. 


Bit 5 = IACSV_EXPREG (set if INADR2 indicates 
which address region, Pf or Pl, to use, 
instead of a specific address range) 
Bit 4 must also be set. 


INADR 2 


RETADR 2 


* 


IDENT 2 


ACMODE 
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Address of quadword containing input address aes 
in which to place image. 


Address of quadword to contain the return address 
range into which image actually mapped. 


Address of quadword containing the version number 
and matching criteria for a shareable image. 


Access mode of owner of pages (not currently used). 
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CLI Exit Handler 


@ CALLed after image exit (from SEXIT) 
- In supervisor mode 


- To rundown image (SRUNDWN) 
e Should exit with RSB back to main loop 


e First restore supervisor mode SP in CLI-specific way 


e If exit with RET, process will be deleted ' 
e Control transferred back to SEXIT 
@ SEXIT looks for more exit handlers 


@ If none found, deletes process 





ede ah bc a, 


WRITING COMMAND LANGUAGE INTERPRETERS 


Sample CLI - MYCLI 


e Based on DCL 


e Prompts for image file name to run, can be: 
- Native mode image 


- Compatibility mode image 


e For RSX utilities like PIP, can pass command lines: 


~- SYSSSYSTEM: PIP *,EXE/FU (for full directory) . 


e Cannot pass command lines to DCL utilities 


- DCL callback facilities not implemented 


e References various storage areas: 
- PPDS... locations for LOGINOUT-CLI communication 


- PRC ... aS process work area (CLI-specific) 


PRD_... for RMS data structures (CLI-specific) 


WRK_... temporary stack storage (CLI-specific) 


e Establishes control-Y AST routine: 
- Prints message when entered 


- Forces currently executing image to exit 


WRITING COMMAND LANGUAGE INTERPRETERS 


SUPSSTART:: 


SUPSRESTART: : 


General Layout of Sample CLI 


- Establishes 


‘Initialization Code 


supervisor mode SP 


- Runs down LOGINOUT image 


- Initializes 
- Establishes 
- Establishes 
- Establishes 


~ Initializes 


Private storage (PRC area) 

CLI callback routine (SUPSUTILSERV) 
control-Y AST routine (SUPSCTRLY) 
CHMS handler (HAND) 


RMS area (PRD) for terminal 


- Displays CLI running message to user 


- Enters main 


loop (SUPSRESTART) 


Main Loop of CLI 


- Establishes 


condition handler (SUPSEXCEPT) 


for CLI errors 


- Gets user command 


- Activates image (SUPSIMGACT) 


e Establishes exit handler (SUPSEXIT) 


e Calls SIMGACT 


e Saves supervisor mode SP 


e Changes to user access mode (RET) 


e Calls image 
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General Layout of Sample CLI (Continued) 


SUPSEXCEPT:: Condition Handler for CLI Errors 
- No special recovery attempted 
- Resets new exit handler that exits with success 


code (so process deleted), rather than returning 
control to CLI main loop 


SUPSUTILSERV:: CLI Callback Routine 


~ Can be called from image, or by LOGINOUT when 
process being deleted 


- Only handles "get command line" requests (for 
PIP-like utilities) | 


o Returns command line length and address 


SUPSEXIT:: Exit Handler 
- Runs down any open files 
- Runs down user image 
- Restores supervisor mode SP 


- Returns control to main loop 


SUPSCTRLY:: Control-Y AST Routine 
_« Re-establishes itself for next control-yY 
- Outputs message that routine entered 


- Forces current image to exit (if any) 


HAND: : Change Mode to Supervisor (CHMS) Handler 
- No special action taken 
- Removes change mode code from stack 


- Dismisses CHMS exception with REI 


st 
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Listing 3-5: Sample CLI (Page 1 of 6) 


geee2gsa 
FRFFFFOC 
FREFE ROC 
FFFFFFAG 


FRPFPF AS 


FRFEPRAC. 


FFFFFFEC 
eecessen 
saeseces 


96900608 °C? oa 


so 


FC a€ Py 


aeve 
aave 
2800 
1aGQ 
aaea 
aes 
eeue 
vaee 
eee 
°9e9 
aoe 
eae 
4000 
vane 
reg 
ned 
eee 
30u8 
2ene 
ange 
ages 
40090 
ages 
aeoe 
eves 
eee 
0eee 
eaua 
anag. 
eae 
2000 
eeee 
egge 
TFS 
a1F@ 
ars 
dif 3 
rrac 
FFgC 
FFAG 
Frae 


FRAG . 


FFAG 
FRAC 
FRAC 
FFFE 
FFFEC 
eee 
9009 
seoa 
eee 
3608 
9006 
9¢0 
4880 
agag 
3807 


6a 
@eertewRaune 


SLemavej9B2 23215221 
SieMAVO{982 24219213 


VAXet! Meere V83~09s Page { 
ORAGS (COURSE. SYSPRG CLIIMYCLI, MARY (1) 


’ MYCLI.MAR 
oTITLE © MYCLI © EXAMPLE CLI COOMMANO LANGUAGE INTERPRETER) 
? 
s Optginel surher Jorn weir © Treining © Reeding, 
s Stonificarely eewrittensalitered for V3 interteces by Vik wulentete 
’ 
s Te vee ents CLI the file MYCLI.EXE must SE INSTALLED {m SYSSSYSTEM, Log on 
3 veing the /CLIS cotter Cop else set up the relevent default CLI with UAF) 
3 USERNAMES NAME/CLIBMYCLY 
’ 
s Tre CLI sremets for an image file name and pune the specified imege Ceitrer 
t native mode er comoatidbility sede). Cammand lines can be passed to utilities 
3 sven as PIP as faoilows COCL utilities CANNOT be used): 
2 3 SYSSSYSTEMsP IP @,e7FU Cee gee a full dipectorpy 14seing) 
} . 
¢ CONTROLeCY eberrs the current image, 
t 
3 To legeute tvee BYE. use a CTRLOZ, oF execute SYSSSYSTEMSLOGINGUT 
] ; 
3 “ACRO lidbeery celis 
: 
SPSLOEF 9 eCCese mode symvels 
STKODEF 9 imege header symbols 
SCLICEF 3 Commend interpreter fiegs 
SCLIMSGOEF 9 CLI message codes 
SPPOCEF 9 from own maere }ibeary 
PRreoEF s fPem ewe magre |ibreary 
Ppaooer s fPem own macre library 
z ; 
2 CLI seivete wore saree © this will be ereated an the atack 
3 
ePSECT $a8S$,068 
“SGSUFSIZ269 
WOK x LENGTNS@{ ae 
o BWRK K LENGTH 
WRK LI CMOLENS } user cammand length 
e SUKL { 
WAK Li CMOAOR? § address. of user command 
o SUXL 
WRK GO MSGSUPOSC! 9 deser{eter far user tnaut 
oStKQ 1 
WRK TP mSGSUF? 3 sterage for user input 
eo SLX MSGBUFSIZ ; 
WRK LL SAVESPS § seved steck painter 
oe BUKL 1 
WAK LU CONOMANO?t 3 eddress of condition hendier 
oe SLKL t 
, 
eFBECT 
’ 
3 Neo entPy task = must start et fiest lecation of {mace 
’ 
SUPSSTART 33 
MOVL G°CTLEAL_ STACKO8, SP 3 peleed supervisor stack pointer 
MOVAL «=—« @ GSP) FP $y eet @ good FP ‘ 


MAT, 
72 
az°ar ee 
Sa $@609008°CF 
gg GO AA 
68 6464 48 G8 e€ a6 
$8 a8 1E AA 
8 $¢ 
aseegece’sr e20a°cr 
6331 
6320 
16 AA Gegeseen*ar 
$8 @eCs C8 
16 as 8 
5° ee8e C8 
S7 e17€ ¢8 
o& eese°ser 
eege°cs $e 48 
Se 28 oeee° sar 
8See°ces aeserar 
sese°cs 22 Aa 
8680°C7 eeee°cs 
36ee°Cc? 2e Aa 
eeeu°Cc? $8 
aves°Cc? Tt 
aeee°c? eegerser 
3aae°C? eGserasFr 
eere C8 aaderc? 
62338 ¢8 eeee°c? 
aeeu°Ccs 8a Ab 
a8ee°Ce? ©4 bf 
8eea°Cc? a4 
eeaqRr°co Fe OF 
889e°eC? aeaercs 
660d°C9 90000080°48F 
ec a8 S87 
88 486 $9 
Sa ec aé 
agee°ca Beesescacer 
gega°ca @a19°8F 
G2e2 


Listing 3-5: 


eees8 
agi6 
e821 
@621i 
an2% 
821 
s923 
e027 
*#e29 
nese 
9638 
3638 
eeae 
2G23 
o@ac 
geac 
e6ac 
seve 
e673 
e086 
8087 
Sear 
QO6F 
ROEF 
aa9a 
ages 
3820 
@aa2 
@CA7 
@@A0 
anes 
ua6a 
aaca 
3ec? 
aeco 
3802 
8007 
aece 
aecs 
sec 
ry Tm} 
eaFr9 
aarr 
Aes 
G1h4 
Bibs 
wtta 
PILE 
122 
122 
“W122 
P126 
“(2 
ate 
O13 
Rtag 
4142 


oS 193: 
o 


187 3 
108 
1e9 
12@ 
113 
ti2 
133 
114 5 
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Sample CLI (Page 2 of 6) 


SLPMAVO({9S62 2isiSe2t VAXel!l Meera V83e86 
BLeoMAVOLOHS 2isiSet3 ORAGs (COURSE, SYSPRG CLIIMYE 


SRUNOUN,S SPSLSC USER $ PUR dewn LOGINOUT image 

SOELLOG,$S SPSLSC, SUPER 3 delete o11 susefviser sede procs 
3 legleal names, Specificelly gets 
3 ef {Aietial SYSSINPUT. Leaving en 
$ earrpeet exece, sede legica! rere, 

CLRL o(8P) 3 set ve dummy sore era, Bleek 

CALLE (SP3oB° USS 3 epeate initial call freme 

e#ORO @ 8 eAtey magk 

MOV2G «= GPETLSAG_CLIDATA, RIG 3 R18 & Address ef PPO sree trem | 

“OVE PPOSS CLIREGOS(RIZI,ALL 3 ALL B Address of CLS private sti 


MOVES =—«_- #9 Go (BP) BAe PPOSG CLIREG(RIS) s (RIL) p Bere ell storage 
Move PPOSW. INPCHAN(RI8) PRO LWLINPCHANCRIL) 2 seve TTY channel 
“OVS AP, PRE LL SAVAPCRI1) $ save initial arg and frame poin 
OVAB WOSUPSUTILSERVO2, GECTLSAL CLICALSK 3 CLE collback poutine 
SQIGCH LS Bie PRC Hw INPCHANCRI1)  SITOSSETMODE! TOSMETRLYAST© 
P_SSUPSCTALYO 
PJESPEL SC, SUPER $ set us CONTROLeY Ast 

63a" ERROR 
SOCLEMN_S MANO § set ue CHHE hendier 
8Sgu ERROR 
MOVE SESS NORMAL, PPOSLILSTSTATUSCRIG) ¢ esteblien nerwa!l aucce 

§ fer exit te LOGINOUT 
Tritialize srceess RMS seeuetures 
MOVAB = PRE LC LLENGTH( R119 ,86 ¥ set eddpeees of RMS structures 
MOVAB PROS FAB( RS) PRO LL INOPAB(R13) 9 adde, of gen, purp. FAS 
MOVAG = PRO LG INPRAB(RE) RO ¥ 868 address of inoue RAB 
eOVas PROG SUTRAS (RB) RP $ set eddress of output RAB 
nOvw SFABSC BIDSC<FABSC BLNOG>ePRO LS FARCRO) 9 sot FAB [O/Lengt 
MOVAG = PROG NAM(RE) SFABSLINAM(RS) § 2et addrcas of NAM Bleek. 
*OvE BNAMSC BIDOCNARSE ALNOER, PROG _NAM(RE) 9 see NAM [O/Lenct 
“oye BRAGSC SIDOKRASSC BLNOSDdsRASSS _SLOCRO) 3 see RAB LO/Leng! 
wOvN POOSH TNPTSIC R19) ,RABSH ISICRO) 3 see inpue [Sf 
wove RABSH BID (RO), RASSB_SID(RT) $ set RAB IO/Lencen 
HOVE PPOS™ OUT ISIC AIG), RAASSM ISICRT) » see sutpue ISI 
*OVL RA gRACSL FAB(RO} 1 set address of Fas 
MOVE RO oRABSL_FAB(RT) § se€ eddrecs of Fae 
arcx SRABSH PPK LINC, RASSW TST (R9) § eee PPF ai pece access 
erex BRASH PPE ING, RaGSe TSI(R7)} § dleeble uecremoce ECF 
MOVE RABSBBIOCRY) pPRO GLALTINPRAB(RO) 7 see RAB L0/LeRn/ISI 
ROVE RABSHSIOCRT) PRO GLALTOUTRAB(ROY 3 see Raw [D/Lensist 
ROVE PPOSL INPCEV (R19) ,AABSL CTXCROD 7 store Inout device cha 
MOVE PPOSL OUTDEVC R18) -RABSL CTXC(RT) § store outaut device en 
OVA = - #1, RABSB MBC (RF) § allocate 1 bloek/sbutife 
“v8 sot ,RABSE MOF (RO) § allocate 1 Bulfer/etre 
mOvw RABSBE MOF( RO), PASSE MOF (RT) 9 eet same MBC/MEF for o 
OTS BRABSM PMT, AABSL ROP CRI} } allew reed with srompe 
MOVL R7sPRE LL OUTRABCRIL) } 8et addrese of cutout 
SOVL RO, PRE LINPRAS( RIL) § set addreas of inoue R 
Otsolev CLI running message te yser 
MOVE PRE L OUTRAG(RL1),R13 $ Get eddress of autsut 
MOVAB M$GQG,RABSL RGF (RIS) 9 eet mesoage ecdrese 
“Oyu SLENG,RABSH REZ(RIG) 9 set record size 
S$PYyT RABs(R19) § dieplay CLI eunning me 
ssgu - ERROR ? eneck fer errors 

, 


and dres ehraugn to ai 
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Listing 3-5: Sample CLI (Page 3 of 6) 


Ve , DieMAVS{(9H2 2ZisiGs2L VAXoLs Meere VO3Sed0 3 
BLoMAV~m19S2 21218813 ORAGs (COURSE, SYSPRG, Bitsuvels mAAit LD 


a1a2 115 3; “etm CLI leon entered onee from the initialize rautines, then 
#182 1L@ 3 sudseaquentiy from the exit Nendier to orceess next commend after 
x 3132 117 3 Image extt, 
al 3182 116 3 
J182 119 SUPSRESTAaTs 
60 90000286 °EF 9€ 4182 129 *OV48 SUPSEXCEPT, CFP) ¥ set condition hencler eddress 
SE 6¢ a0 SE atae 121 “Ov 4A8 WAK K LENGTHOLOCFP),SP 3 Peserve CLI work sree 
ag a0 seasaese ar of wtao 122 MOVL OMSGBUFSIZ, aRK GO MSGBUFOSCCEP) » efze af RMS MSG BUf fer 
462600 =6aC 80 9E 41SH 123 MOVAB = =—«- SAK LT LMSGBUFCFP), ARK OG MSGBUFOSCOGCFP) 3 address of buffer 
$4 @8 48 O08 S188 12a MOVE PRC LINPRAB(RAI3),810 3 address of input RAG 
weae°ca GEGOASFECEF 9€ G@iSE 12$ “OVa6 M$G2,RPAOSL PEF (RIG) 3 set promot eddrees 
eeeerca 13°S8F 98 wle7 126 “OVA BLEN2, R888, 9SZ2(218) ? set oremot size 
GOPeC°CA ac a0 9E «100 127 “OVAS WRK LT MSGSUFC FP) ,RASSLUSF(RIS) 3 Input Buffer address 
geoerca eese aF B82 wit?3 128 MOVu amSGBUFSTZ,AASSe USZ(R19) 5 fnoure buffer size 
ay7a 129 $GeT Rasbe(R18) 3 get next recerd 
S2 @egaceca 3 «183 i3s MOVZWL =RABSHRSZ(R1B) ,R2 3 atte af inaute line 
$3 oeeerca Oe 4188 131 *OVL RASSL REF CRIS) RS 3 edédrese of input line 
oF ae 3180 132 PusHR BONEAT, RE, ASORI>D 3 seve pegisters ecress CHPCS 
gece °Eer ac a0 Gaes°sr 2% gies 133 C4PCS «=—«- BOVE LENS WAK TP MSGBUP (FR), BYE 3 check far BYE command 
it 130 «(7198 134 BEOL 19s 3 1f sen Jeg aut 
aF 84 2719E 135 POPR B°MEAT RL RIERSD o Pestere regiaters 
S@ aeaneesa°sr o1 919¢ 136 Cue SRMSS EOF, AG $ wes (t endecfotite 
de 13) tas 137 SECL 1938 + {ff see ltegeut 
ee Se €8 ‘tar? 138 uss RO, 29S t velia GET? 
PFOS SL ataa 139 Baw SUPSRESTART r 1f note trey egain 
$2 13°eF 9a 44480 189 198% MOVZBSL 8.06882 ,22 3 4? EGF © legeut 
§3 9e9GGal1 CF o—E w1Bt 141 sOVAB LOGG,RS 3 set vo fee LOGINOUT 
S2 OS 3188 162 2083 TSTL R2 % Blenk line? 
e3 12 #9168 {43 BNEQ 18s t 1f nets continue 
vrbs 33 «tac 144 6Ru SUPSRESTART 3 $¢ Blank = gee another 
Sa S2 O8 31BF 19S 1833 MOVL RIWgRG t lenger of commana 
$$ aC 40) DE 6wIC2) = 618 MOVAL =—- WRK LT LUMOGBUF CFR) RS ? eddrees of command 
S00GQU28°ER ay as 3a 41Cd 187 2433 Loc? (8S) o,83,3EP 3 te this ener, im seonaretor jist 
3 12. 6.1CE 1886 8n€9 228 3 1? NES © yes 
F3 Sa FS 100 1a¢@ SO8GTR RO,2tS 3 el8e tery next char, 
S2 $6 c2 2103 1S8 223¢ SUBL2 R&eRZ 2? Peset {mege frame lengtn 
ec a0) 88 o@ 2106 St MOVE 2G, HARK LICMOLENCFR) 3 eave user cammand length 
ag ad 0392 e€ 9104 1§2 “OVAB CR3) (R22) ,eRK LI CMOAORC FP) 9 save user commend sddress 
QQved EEer 16 108 1$3 J38 SUPSTMGACT 3 go run the selected {mecge 
a3 52 8658 tes isa ares 29,208 t akip if ob: 
eycs 38 «ALES 1S3$ 8360 EQRPRT $ @utput errer messace 
FFSS 6310 «ates {Se 208: Qrw SUPSRESTART 
J1E£ 187 3 
“1EE 188 1 Image setivecion 
LEE 189? 3; 
“WEE to@ SuPsTeGacrTs: 
1F $8 sB@ 06 683) EQ ORES tet geass BPRCE VY EXIT, PRE WL FLAGS(R11),80S » skip if hendior setive 
72 38 Aesedarecrer CE MtF3 1e2 moVvaL SUPSEXIT» PRO LLIEXTHNO(RY1) 7 set exit hendlier address 
78 48 at 09 atts {e3 MOVL BLsPRE LLEXTARGCRI3) $ set count of srquments 
7¢ a8 eeas CB OE ofFfF 1e4- “OVAL PRC LEXTCOOCRSE 1) -PRELLLEXTPRMCRI1) 3 eddrees of peremeter 
: A2as 10§ SOCLEXH_S PRO LLEXTBLACRIL) 9» set us exit handler 
a1¢2 38) weet toe 8sgu ERROR 
ss eededasacGcr oe :1212 fo? sass “OVOL G°MMCSIMGHORBUF,RS 1 285 @ Address of imege header buffer 
os $2 70; w2t¢ 168 MAVO R2, (RS) $ wotinecers to imece file dese, 
a6 aS segedqaurar 0@ aegie 109 MOVE SOEFLEN,8(85) 2 Bwolinters te default imege file dese, 
ac 4s SQGQCG2a°EF VE +229 17a mOVA8 OEF,12¢R85) 
s2ec 17% SIMGACT So : 3 aetivete image 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-5: Sample CLI (Page 4 of 6) 


MAIN, SLMAVo1962 J2:1Gs2i VAXeit Meere VOI~0R 
SLomMAVa (98S) Jisiaszt3 ORAGs (COURSE, SYSPRG CLIS MTC) 
v22c 172 NAMER(RE)o : tmage file name 
a22c¢ 173 OFLNSMES(RSJ}° 3 default fila rneme 
e22c 176 MORBUFE(RS) s Imege header sutfer 
* Z eF $B £8 #2638 175 6Lss ROo 28S 3 4% set = activation ok 
$8 86 8267 17 PUSHL Ag $ Save error code 
#209 877 SRUNOWN,S SPSLSC_USER 5 PUR down bed {imege 
$@ 8€5e 9252 178 PoPL Re 3 Pestere errer code 
65 °255 179 RS8 3 Petuen to meiR tooo 
FE a6 Se 09 w2S5e 16@ aaSe MOVE GP MAK LI SAVESP CFP) 3 Save current SP 
7E oF ie 78 92a 181 aSRL BPSLSV PRVHOO, BPSLSC USEROZOPSLEC USER, (SP) 
M2S5E 182 3 set up veer PSL on stack 
o2°ae oF 32S 183 PuUSHAS 8°SES 3 set ua user PC on stack 
82 S2e1 188 RET 3 switeh to user mode 
s¢ 76 abe 16S Sess GLAD ap 3 Clear AP, FP 
oS°ar a3 Fe 4264 18¢ CauLs $958°sOS 3 set tom level cell frame 
G3GS WsO8 187 |a8: 2¥020 3 
6d Sevedsae’ cr 9€ w2oa 188 movas GOEXESCATCH ALL CFR) 3 Set exceetion te cereh ail 
9271 18 SSETEXV_S @2,G°EXESCATCH ALL y leet chance vector 
a2es) 8 =—198 SIMGFINLS $ Perform eddrece relocation 
22 Sa ge a2ee8 19% 6L9¢ R3,0S3 s exit ¢? eprer 
$e e@gaedesea cs 70 «= 26€ 192 “OVG C°MMGSINGHORSUF RG 3 addreeses of image header & ftt: 
898 193 3 CLI arcumene tise : : 
7E oa +v29e§ 196 CURL (SP) + CLI flege 
2@ a2 06 297 195 PusHL THOSL LNKFLAGS (RG) 3 line flege from image header 
7€ $a 70 aoa 1% “Ove RB,°($R} s imece file name & image reader 
ve eeees208°er 9€ 3296 197 mOVAS SUPSUTILSERV,2( SP} + CLI coelibeck address 
$8 382 as 3€ waa 196 MOVZeL [HOSP SCTIVOFF (2G) ,RO 3 affeet ta transfer vectors 
sé $a CB ReAs 19¢ AGOL RIeRD 3 eddrese of tCreneter veetsr arre 
@ OF AZAB 23@ PUSMaAL (RO) 3 Seve. edérees cf transfer veetar 
I) ee Fe g2ad 29% CAaLLs Be O(RB)O t call {mage entry 
aavageee*Gr 37 «69289 292 658: Jup GPEXESEXIT IMAGE $ do de SEXIT LS 
A286 2a3 


z 
*286 208 ; Canditian randteor for CLI errers, Net calles fer user errare an these 
3266 208 3 ape caught by EXESCATCH ALL whiten orints eprer dump and dewe en exit. 
328e 26@ 1 CLI errare are socctiel = reset exit Nanaler and Jump ta EXESCATCH ALL, 
u2te 207 : 


ABIR ALBe 2n8 oENTRY SUPSEXCEPT, “%aR3 31> 
$6 IRAAGASRS* GF 9€ w288 2a¢ "OVAs G°CTL SAG CLIBAT ARIS $ Get eddress of PPG 
58 28 28 08 J28F 216 MOVL PROSE CLIREGOACRILIARLL 3: get accress ef precesa vork ara 
78 a8 Cee 9€ 3203 2it MGVAR = B°LASLPRE L LEXTHNOCRIL) 3 reset exit Nendier address 
POCEAEIS°GF 17 «2c8 212 Jue GPEXESCATCH ALL o2 3 take specie! errce exit sath 
agaa v2ce 213 148% o BORO @ ? entry mask fer special error v1 
Se snsesgaacsr He -200 24a *OVL 8SSS NORMAL, RG $ set success 
3&8 4207 216 RET 
3208 2ie 3 
a268 237 3 CLL service rpautine te pass remainder of command jine ta utilities 
A204 218 3 se fer RSX tyse GMERS. Nete tree will NOT nendle reavests from OCL 
3208 219 3 weitietes iike OLRECTORY, - Assumes callback reauest of proper tyoe. 
4208 228 3: 
8€ae 2268 223 sENTRY SUPSUTILSERVs “MERIG RIL 
-T-) AALSAGGI*GF 9E 3202 222 eOV AB GPCTL SAG CLIDara, 248 % eddreess of PO 
58 €6 a6 OF wes 223 MOVL PPOSO CLIREGOGCRILI ORI § acdress of process work eres 
58 éo ag Ow #8265 224 “OVE PRO L SAVFP CRITI, ALL i edédress of saved FP 
Sa aa ag 0? %269 225 MOVL aah) R10 address af CLL reauest Slock 
rO Bb 9€ a8 0@ 8260 226 MOVL WARK LICMOLENCRELISCLISH, ROSIZECRi@) $ return line Jengen 
a¢ aa am 28 O08 v2F2 227 MOVL WRKEL CMOAOR(RIL) SCLISA ROADOR(RIG) 3: Peturn line addres 
Sa UAASIGG, SF 3@ Gary 228 =OVL CCLIS NORMAL, RA 3 set success return 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-5: Sample CLI (Page 5 of 6) 


Slemayer¢@a2 2isias2i VaAXet! Macrae VE3eds 5 
SLOMAYO(982 2iet472i3 ARASse (COURSE, SYSPRG, eceyavent omar 9 (1) 
0a 32FE 229 RET 
BY A 230 3 
aerFr 231 3 Exit Rendition, celied after {mege exit ta pundown (mege, Hendler dees 
A2FF 232 3 Roe return (ag this would delete precess), But pesets the stack so that 
7 a2arer 233 : the 838 peturne to the main loon ta get the next command for processing. 
Aare 236 ; 
@6es gare 235 eENTRY SUPSEXTT, PMER2,R iid 
$8 Jogeegse*Gr o€ 9301 236 movag C°CTLSAG CLIOATA, R11 3 RIL 8 eddreas of PPO 
$8 0848 08 3308 237 MOVL Friel lees gre 3} eddress of process werk ares 
$a a8 6a 4A 330C 238 Brew aPRE MIEXIT, PRC WL FLAGS(RIL) » exit hendier ne longer active 
sO 04 48) «608 6v3i9 0 = =6(239 MOVL PRC LL SAVFPCRI1), FP 3 FP @ address of CLI work eres 
S2 aa Ao 9E asia 2a@ MOVAS WAKO MSGBUPOSC(FP),R2&2 3 R2 @ RMB meg buffer dese, 
2 so oF a 2318 241 1983 “OVZBL 4 #MBGBUFSIZ, (R2) 3 Peset size of message Suffer 
és 0O 33:¢ 242 Pus, e@ 3 PUR dewn only imege files 
o2 oF we3ie 233 PUSMaB (RZ) 3 eddpess ef message buffer desc, 
eeegeaeqa°GFr @2 FB 2320 248 CALLS 82.6°SYSSRMSRUNOWH $ Pum down RNB@32 files 
GCE S@ E€° 8327 288 Brac RGolGes 2 1? errer © try next file 
S324 0= 286 SRUNOUN, § SPSL IC USER 2 PUR dewn image 
$9 gs 8c 0@ 3333 287 MavEL OACAP) RG 3 Petedeve peasen far exit 
$e Pe ad oe 8337 248 MOVL WRK LL SAVESP CFP), SP ¥ Get seved &P 
es 90338 209 ASB 3 Petuen te original caller 
833¢ 258 9 4,0, JSS SUPSIMGACT {ff mein leon 
?33¢ 2$1 


’ 
633¢ 252 3 CONTROLCY AST pautine,. Prines eue @ message and forcee image ta exit, 
#33¢ 253 3 ft dees nee get invelved im commend srocessing ee OCL dees. 


933¢ 258 ; 
@coe 4 3833¢ 2s eENTRY SUPSCTRLY, “M4R10,R11> 
36 segesesarGr 9€ s233e 2$6 “OVA GPCTLSAG CLIDATA, RY s RL 8 address af PPD 
$6 38 48> 068 93as 287 MOVL PROSG CLIREGOQCRI1), ALL 3 address ef precese work aree 
0349 28 SQTOw,S #1,P RC ww INPCHANCR11) -STOS SETMODE! TOSM_ CTALYAST© 
g38e 8259 PL ESUPSCTRLYS 
#349) = 288 P3mePSLIC SUPER 3 Pewectivete CTRLey Ast 
8937 38 s3ea 2et 8Sau ERROR 
Sa ac 48 08 3360 262 MOVE PRE LOUTRASCRILI,RI2 } address af cutput Ra8 
eega°ca GSAOCSES EF 9€ 3371 263 MovAs M861, RASS ROP (RIG) 3 set messace eddrese 
@dearca asiacer 83 <a37, 264 “ove BLENL , RAGSm _REZCRLB} 3 set record size 
e341 265 spur RaBa(RiG) } eutoue in CTRL/Y AST message 
set? 38 3384 266 ssaw ERROR 3 enegk for errore 
11° 58 a8 a3 Et 9380 267 8s¢ BPR VIEXIT, PRE WIFLAGS(RitJe1aS 3 anv imege setive? 
#392 268 SPORCEX, S$ COCERSSSS NORMAL 3 force user tao exit with success sede 


aa 3343 269 1832 RET 2 petuen from ast 
e3aa 279 3 : 
e3aea 271 3 Evvaer taet seucine 


' @3aa 272 3 
at Se £9 e348 273 ERROR: 8L8C RGe198 ? skip on error 
eS #3a7 278 R$8 3 Peturn ox 
at 16 3348 27S 1933 8888 ERRPRT 3 Ge prine tke error message 
@8 @3aa 276 War 
o3a8 277 3 
e3aea 278 3 Eprop message output reutine 
e3a8 279 3 
sa bo «6a3as 288 ERRPRT: PUSHL ra 9 stetus eede 
et 06 «#340 261 PUSH, at 3 srpqusent count 
$1 se oS we3aFr 282 MOVL SPRY 
A382 283 SPUTMSG. S$ . CRY) S @utout errer nessege 
Ly 4 0S 93¢1 28a TST. (SP) ¢ 3 em erg count off stack 
$8 8€De 93¢3 285 POP. RO t pestere errer esde 


oat, 


a6 
1] 


$8 
2a 


a? 


ae 


ey 
2a 


a€ 
26 


a} 


3a 


38 
ra 


a 
28 


a0 


86 


a§ 
aa 


83 
$4 


a@ 


a§ 


20 
23 


2@ 
53 


28 


Se 


2a 
aq 


aa 
ay 


32 
2e 


33 


2a 
8G 


rz) 
2a 


a§ 
8$ 


$9 
35 


24 
83 


2a 
s9 


Sa 
a6 


33 
ar 


ee 
20 


8€ 
a} 


2a 
8€ 


aS 


WRITING 


Listing 


a€ os 
a2 


eeeaesev 
939929090 
adseeuga 
eeseuveds 
@o @a 30 
aS a6 $2 

aa 
80308019 
@° 84 20 
ee aF $2 
@4 @O 2A 
800938158 
aS @& 30 
bE 23 a§ 
39eeee:3 


§3 $9 $3 
ad ef af 
32096073 
§6 8S 2€ 
a@3ga0e6 


2F @¢ 26 


aS $9 «2 
aseeceus 


43Co 
237 
ase? 
33¢7 
A3zCT 
436° 
3a 
“gca 
J364 
Osea 
“3a 
u3€a 
e3Cca 
a3Ca 
#306 
a3€2 
s3€3 
433 
43EF 
33F8 
o3re 
AsFe 
¥8ah 
wii 
watt 
mart 
2616 
aa2a 
4828 
4428 
3426 
4028 
4428 
0428 
4adEe 
aa2E 
e82€ 


COMMAND LANGUAGE INTERPRETERS 


3-5: Sample CLI (Page 6 of 6) 


SLoMAYOG9HS? 2isiGs2i VAXell Macrae VEsodG 
SLOMAVO1982 2isiGe13 ORADs (COURSE, SYSPRG.CLIIMYCL 


286 RS8 

287 3 

268 3 CHMS nandier @ fer Unie ELL is «8 neces 

289 3 

208 wanOss FPSTL CSP) 8 PePeve chenge meade code fram stec 
291 Rez 3 PeturPA after CHMS call 
292 3 

293 3 Messages dissiaved at terainel 

296 3 

295 Space = 32 

296 ce © 13 

297 LF 8 4@ 

294 TaB 8 9 

29@ 48633 eASELL ERP KELFOCTABMCTARd/aee EXAMPLE CLI ewe/dCRro<LF> 
see LEN@e, o@$69 

3ot “SGi3 cASCII. CCROCLFOCTABD><TAQDd/eee CONTROLOY AST see/<CRD<LF> 
302 LENIS, 04961 

303 “$623 coASECII <<EROCLFSSENTER [MAGE NAME / 

3eS ; 

34@ LOGO: eASCTL /SVSSSYSTEMELOGINGUT/ 1 image name fer LOGOUT 
3e7 LO0G0$Z6, 0.060 

388 OEFs eASECIS /,EXE/ 3 defauites for image file name 
sue DEFLENS, oOEF 

31@ ; 

32% SEP: eASCII <3PAaCE><TaBo*s* 3 Seneretars 

3t2 3; 

313 svés eASCIT s/BYEs . 3 Cemmend to leave system 
314 BVE LENS, o8VE 3 lergen of commend 

318 3 

sie oENO .SUPSSTART 


f 
; 
‘ 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-6: PPDDEF.MAR File (Page 1 of 2) 


20 20 CO OF C8 SO CO Oc Ge OF Ce Ge SO C8 CF OF OF £6 


sogF 
s€Qu 
secu 
s€Qu 
s€Gu 
softer 
s€Qu 
SOEF 


soeF 
s€Qu 
soeFf 


soeF 
sOEF 
soeFr 


soer 


soeF 
soeF 
soeFr 
seQu 
SoEeFr 
s€Gu 
SOEF 
s€Qu 
soEer 
s€Qu 
SOer 
soef 
s€Qu 
sogr 
secu 
soeFr 
s€Qu 


PPOCEF.MAR 


LOGINGUT data structure definitions 


PROCI-8 
P1—6 
SYSSIN®UT- 
SY¥SsOUTPUT 
SYSSERROR 
SYSSCOmmand 


eMACRO 3 8PPOOCEF, SGBL 


SOEFINI PPC, S68L 


prOsw_ SIZE oBLKw 
PPOSV_NOCTLY 0 
PPOSM_NOCTLY 1 
PPOSV_ MODE 1 
PPOSM_NODE 2 
Prosw_FLaGs ~S8Lkw 


PPOSS_CLIREG 8 
PPOSQ_CLIREG o8LK3 4} 


POOSL PRC o SURE 
POPOSS_CLISYMTSL 8 
PPCSQ_CLISTRTBL .SLKQ 


PPOSL_LGI oBLKL 
PPOSL_LSTSTATUS .8LKL 
PPOSH_NPROCS o8LX8 
-BUxs 1 

POOSW_INPCHAN 8 8=6. SLK 
PPOSW_INPIFI o8LKw 
PPOsu_INPISI o8Lky 
PPOSW_OUTIFI o2URw 
PPOSC_OVIFID 28 
PPOSW_OUTISI o8taw 
PPOSS_INPOYI 16 
PPOST_INPOVI oALKS 16 


PPOSS_INPOTO 8 
PPOSu_ITNPCIO oStKu 3 


PPOSS_ TNPFIO & 
PPCSW_INPFID o8LKw 3 
PPOSL INPCEYV BLL 
PPOSS_GUTOVI 16. 
PPOST_CUTOVI eo ALKS 16 
PPOSS_ DUTOIS 6 
2POsw_OUTOIO o8LKu 3 


PPOSS_OUTFID 6 


@C @o 68 66 Se 08 


oo es 


20 ee 20 


@e Se 06 0 en OF 08 


oo eo oe oe oe 


Gefine LOGIN <--> CLI <==> LOGOUT communication region 


This structure is based at CILSAG_CLIDATA. It contains all colls 
enrich are used by both LOGINOUT and the CLI. 


Tn addition ta the fellosing data itens, the fallesing logical nazes 
are also passed from LOGIN te the CLI initialization code: 


Procedures to initially execute 
Inittal naraneters for batch jobs 
Privsary input streas 

Primary output strean 

Primary erroe strean 

Conmand terrinel 


Betual size of structure 
Initially disable CTRU/Y in CLI 


1 if netwark, batch, or detached 
GQ if subprocess. or interactive 
Flags. 


Oeseritoter ef CLI srivate data storsge 
Caosrexinsately 2-3 pages or so) 
Address of CLI privste data storage 


Oescristar of syabol table storage 
Csize from SYSGEN parame CLISYMNTBL) 
Address of LOGINOUT srivate storage 
®inel status code frow CLI te LOGoUT 
Muaber of procedures to initially 
execute (names in legnames PROCI<-N) 


Channel to SYSSINPUT Cused to SCANCEL 
outstanding £/0) 

SYSSINPUY IFT 

SYSSINPUT IST 

SYSSOuTPUT IFT 

Length of OVI/OIO/FIO block 
SYSsouTPuTr Ist 


SYSSINPUT ASCIC device nase. 
SYSSINPUT directory file id 


SYSSTNPUT file id 
SYSSIN®UT dewice characteristics 


SYSSGUTPUY ASCIC device name 


SYSSOUTPUT directory file id 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-6: PPDDEF.MAR File (Page 2 of 2) 


SOeF 
soeFr 
SsogF 


soeF 


PPOse_GuTFID oSURW 
PPOSL_ GUTOEV oBLKL 
PPOSC_ LENGTH 
PPOSK LERGTH 


SQEFENO PPG, S638L ,CEF 


oENON SPPOOEF 


$ SV¥SsGuTPUY file i¢ 
3 SYSSOUTPUY dewice characteristics 


$ Length af fized pertion 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-7: DCLDEF.MAR File (Page 1 of 3) 


ao 


e0 @e 06 a6 oe 


soeFr 
soeF 
soEer 
sOEF 
soeF 
soEeFr 
sOeF 
sogF 
séQu 
soeF 
s€qu 
sOeF 
secu 
soEeF 
sEQuU 
soEeF 
sOeF 
sor 
soEefr 
soer 
soeFr 
sOgF 


s€ou 
sE€Qu 
s€Qu 
sE€Qu 
s€Qu 
s€Qu 
s€Qu 
SEQU 
s€Qu 
sE€Qu 
sé€Qu 
sEQu 
se€qu 
$€Qu 
s€Qu 
sé€qu 
s€Qu 
s€Qu 
sE€Qu 
se€Qu 
s€QU 
s€qu 
s€Qu 
s€qu 
s€qu 
s€Qu 
s€Qu 


- OCLOEF.MAR 


OCL Command Language Interoreter internal structure definitians 


OEFINE PROCESS WORK AREA CSASEO AT RILSCTLSAG_CLIDATA) 


oAACRO 


SOECFINI PRC, SG8L 


PRC_L_SAVAP 
PRC_L_ Saver 
PRC_L_INPRAB 
PRC_L_OUTRAB 
PRC_L_ERRRAG 


PRC_L_INOINPRAS 
PRC_L_INOGUTRAS 


PRC_L_INOFAS 
PRC_S_ ALLOCREG 
PRC_O_ALLOCREG 
pec_S_GLosat 
PRC_Q_ GLOBAL 
prC_S_LABEL 
PRC_Q_LABEL 
PRC_S_LOCAL 
PRC_Q_LOCAL 
PRC_L_ SEVERITY 
PRC_L_STATUS 
PRC_L_ INDEPTH 
PRC_L_ SYMBOL 
PRC_W_INPCHAN 
PRC_W_ERRIFI 


PRC_V_CuTRatr 
PRC_M_CNTRLY 
PRC_Y_OISABL 
PRC_M_OTSAGL 
PRO_V_EXIT 


-PRO_M_EXIT 


prc_y_ sorta 
Pec_m_ Gata 
PRC_V_INO 
PRC_M_INO 
PRC_¥_MOoE 
PRC_M_MODE 
PRC_V_VERIFY 
PRC_N_VERIFY 
PRxC_v_auratoco 
PRC_M_ AUTOLOGO 
PRC_V_OaGQuat 
PRC_H_ OSGQUAL 
PRC_V_OSGT RUE 
PRC_*_OBGT RUE 
PRC_V_YLEVEL 
PRC_M_YLEVEL 
PRC_V_HANGUP 
PRC_M_HANGUP 
PRC_Y_ PAUSE 
PRC_¥_PAUSE 
PRC_V_EOFLOGO 


PRCOEF, $GBL 


MOOWNeE FWP NN 


- 
~ > & o 
a 


8 
256 
9 


<*%2009 
16 
<*X4009 
1 
<*xs806> 
12 
<*%1000> 
13 
<*°X200059 
14 


©0 ce eo ef es C8 of ce 


@6 Se of Se o8 ot C8 ee 


oe oe oo oe ee oe of oe Tt) ee oe ae oe 


SAVED ARGUMENT POINTER 
SAVED FRAME POINTER 


ADORESS CF INPUT 246 

AQORESS GF CUTPUT RAS 

ADORESS OF ERROR RAG 

ADORESS GF INOIRECT INPUT RAS 
ACOPESS OF INOLRECT GUTPUT RAB 


ADORESS OF INOIRECT FAS 

SYMGOL ALLOCATIGON REGION LISTHEAD 
SLOGAL SYNGGL TASLE LISTHEAD 

LABEL SYMBOL TABLE LISTKEAO 

LOCAL SYMBOL TABLE LISTHEAD 

ADORESS OCF ERROR SEVERITY SYMBOL VALUE 
AQORESS OF COMPLETION STATUS VALUE 
TINOLTRECT STACK DEPTH (C# LEVELS OEEP) 
ADORESS Of GOTO LASEL TABLE ENTRY 
INPUT CHANNEL FOR INTERACTIVE JOSS 
SYSSERROR RAS TEI NUMBER 

SUPERVISOR CONTROL Y/C LEVEL REQUEST 
OITSasLée COnTROL Y asT’s 

EXTT HANOLER ESTABLISHED 

FORWARD GOTO IN PROGRESS. 

PRCCESSING INOITRECT FILE 


COMMAND PROCESSING MODE CBATCHEL. INTERBO) 


VERIFY LINES Of INOXLRECT COMMAND FILES 
SILENT LOGOUT CSOELPRC) ON NEXT LEVEL 0 8GET 
OESUG QUALIFIER SEEN ON COMMANDO 

STATE OF DEBUG WAS TRUE 

RUNWING AT CONTROL Y LEVEL 

TERMINAL HANGUP PENDING 

CLI PAUSE STATE ACTIVE 


SILENT LOGOUT CSOELPRC) OW LEVEL O EDF 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-7: DCLDEF.MAR File (Page 2 of 3) 


se€qu 
se€Qu 
seQu 
SocF 
sO€F 
soeFr 
soeFr 


SOF 


soceFr 
socF 
sOEF 
soeFr 
soeFf 
sOeFr 
soer 
soeFr 
soegFr 
SOeF 
SOeF 
soeFf 
soeFr 


s€Qu 
$€Qu 
sé€Qu 
sO€eF 
seEQU 
sEQu 
seQu 
s€qQu 
S€Qu 
secu 
s€Qu 
s€ou 
s€Qu 
séeQu 
s€qu 
s€Qu 
soe 
SQEF 


s€qu 
sEQU 


s€Qu 
s€Qu 
sOEF 
soEeFf 
soeF 
SO€F 


s€Qu 
soEef 
s€Qu 
soeFr 
ser 


PRC_M_EQFLOGO 
PRC_V_OETACHED 
PRC_M_ DETACHED 
PRC W_FLAGS 

PRC_W_ONLEVEL 
PRC_L_ONERROR 
PRC_L_PPELIST 


PRC_L_ TNBX 


PRC_W_ATT MBX 
PRC_L_ INOCLOCK 
PRC_L_TAB_VEC 
PRC_L_EXTBLE 
PRO_L_EXTHNO 
PRC_LL_EXTARG 
PRE_L_EXTPRM 
PRC_L_LEXTCOD 
PRC_L_STACKPT 
PRC_L_STACKLE 
PRC_L_EXMOEPADR 
PRC_S_EXMOEPWID 
PRC_8_EXNOEPROD 


PRC_K_NEX 
PRC_K_OEC 
PRC_K_OCT 
PRC_S_OEFRAOIZ. 
PRC_V_CHO 
PRC_M_CHO 
PRC_Y_CHAIN 
PRC_4_CHAIN 
PRC_V_RUNOEF 
PRC_¥_RUNOEF 
PRC_V_EXEONLY 
PRC_M_EXEGNLY 
PRC_V_PRIY 
PRC_M_PRIY 
PRC_V_ONEXIT 
PRC_*_ONEXIT 
PRC_S_FLAGSZ 
PRC_L_LSTSTATUS 


PRC_V_CTRLT 
PRO_N_CTRLT 


PRC_V_CTRLY 
PRC_M_CTRLY 
PRC_L_OUTOFBANO 
PRCO_L_ONCTLY 
PRC _L_ IOPUNK 
PRC_L_ SPUN 


PRC_S_IMAGENAME 
PRC_G_IMAGENAME 
PRC_S_COMMANO 
PRC_G_COMMANO 
PRC_C_LLENGTH 


<*x4000> 
1S 
<*x8000> 
o BURG 
eS8LKU 

o SUK 

eo BLEL 


oBLRL 


o 8LKB 
eS8LRY 
o BURL 
oe BURL 
eo BURL 
oSUKL 
o BURL 
o SURG 
o BLAL 
o BLK 
o BURL 
oBLRL 
2 SLRS 
oSLKS 


8 
1 
2 
o8LKS 


FT eOwernnrra 


16 
$ 
32 
eSiK8 
oe BURL 


28 


<*x%1000003 


25 


oe 


BLOCKS 


@0 @6 Ge of of Of 


08 20 06 09 26 OO 66 20 66 G0 66 O68 SF Of SO 08 20 O68 O8 


TERPINAL IS DETACHED FROM THES PROCESS 


PROCESS LEVEL FLAGS 

ON ERROR LEVEL NUMBER 

AOORESS GF ON CONOITION COMMAND TEXT 
LISTHEAD Gf GPEN PRE RAB°S CVEA GPEN COMMAND) 
FOR EACH TERMINATION MAILBOX CREATED 
LISTHEAD GF TERMINATION SAILBOX STORAGE 


CMANMNEL TO MATLBGX FOR RE-ATTACH REQUESTS 
TOTAL INOIRECT STACKS & UNSTACKS 
ADORESS OF COMMAND TASLE VECTOR 

EXTT HANOLER CONTROL BLOCK 

EXIT HANOLER ADDRESS 

MUMBER OF EXTT HANOLER ARGUMENTS 
ADORESS OCF REASON FOR EXET CBELGUD 
REASON FOR EXIT 

TNOZTRECT STACK POINTER 

LINOTRECT STACK LIMIT 

SOOT" FOR EXAMENE/OEPOSIT 

WIOTH DEFAULT. TES SY TEs WORD» LONGWORD 
MOOE CEFAULT, LES ASCITHEX,OCTAL 
PROCESS RADIX TYPES 

HEXIOECT NAL 

BEC TNAL 

OCcTAaAL 

CURRENT OEFAULT RAOTX 

CORMANG CALLSACK MAS SEEN OONE 


CRAIN CALLSACK aS SEEN DONE 
USE RUN DEFAULT CNOT EXTERNAL) 
IMAGE [S EXECUTE ONLY 
IMAGE IS PRIVILEGED 
EXIT ALREADY PERFGRKED 
PROCESS LEVEL FLAGS CHORE OF THER) 
LAST STATUS SET CLONGWOROD VALUE) 

¢ SKIP UNUSED CHARACTERS 
CONTROL T 


3 SKIP UNUSED CHARACTERS 


+ COnNTeg. ¥ 


<*%2000000> 


eo SUKL 
oSLKL 
o BLAL 
eS8LKL 


oBLKL 
8 
o8LKQ 
8 
o BLKQ 


(sd 00 oo 


2 O6 60 of 


susPRoce 


OUT OF BANO AST ENAELE SITMASK 

ACORESS OF ON CONTROL/Y COMMANDO TEXT 
POINTER TO XNOLRECT FILE FRAMES 

LISTMEAD OF SPAWN STGRAGE SLOCKS FOR EACH 
SS CREATEDS SPAWN STORAGE FOR PROCESS. 


CURRENTLY BEING SPAWNED IS FIRST, IF ANY. 


DESCRIPTOR QF CHAIN IMAGE FILE SPECTFICATION 


DESCRIPTOR OF CHAIN COMMAND LINE FOR LATER 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-7: DCLDEF.MAR File (Page 3 of 3) 


sOEF PRC_K_LENGTH 3 LENGTH GF PROCESS WORK AREA 
SOEFENO PRC. SG8L.CEF 


ENON PRCOEF 


DEFINE PROCESS RMS DATA AREA 


20 ef se 


oPACRG PRODEF, SG8L 
SCEFINEI PRO, $G8L 


s€Qu PRO_S_ Fas 80 

SOEF PRO_G_FAB -8LKS 80 ¢ PROCESS FAB 

SEQU PRO_S_NAM 96 

SOEF PRO_G_NAR cQLK8 696 $ PROCESS MANE BLOCK 
SEQU PRO_S_INPRAB 68 

SOEF PRO_G_INPOAB c8LkS = 68 3 INPUT RAS 

SEQU PRO_S_ALTINPRAB 68 

SDEF PRO_G_LALTINPRAB .BLKS 8 68 3 ALTERNATE INPUT RAS 
SEQU _ PRO_S_ALTOUTRAS 68 

SOEF PRO_G_ALTOUTRAB .8LKS = 68 2 ALTERNATE OUTPUT RAB 
s€Qu  PRO_S_cuTRas 68 

SOEF PRO_G_QUTRAS e8LK8 68 : GuTPUT Ras 


SOEF PRO_C_LENGTH 
3 FOLLOWING EXTENSION USED ON LEVEL @ TO STORE FIO/OIOVENN FOR QUEUING 
3 THE JOB LOG FILE TO THE JOB CONTROLLER. 


SOEF PRO_K_LENGTH ? NORPAL LENGTH 
sEQU  PRO_S_OUTOVE 16 

SOEF PRO_T_OUrOVE o8LK8 16 ¢ OEVICE FOR QuTPUT FILE 

s€Qu  PRO_S_OUTFIO 6 

SOEF PeG_w_oUTFrO o8LKu 3 3 FILE IO FOR OUTPUT FILE 

s€qu PRO_s_ourcro 6 

sO€F PRO_w_oUTOID -8LkKu 3 3 OLRECTORY ID FOR OUTPUT FILE 
S€QU PRO_S_OUTFNA 20 

SOEF PRO_T_CUTENA oSUR8 20 ¢ OUTPUT FILE NAME 


SOEF PRO_C_XLENGTH 


sogFr PRO_K_XLENGTM 3 LENGTH GF EXTENCED SLOCK 
SOEFENO PRO, SG8L.CEF 


o ENON PRODEF 


WRITING COMMAND LANGUAGE INTERPRETERS 


Listing 3-8: MYCLI.COM File 


$! AYCLIoCOM 
st 

$ SET VERIFY 

LIBRARV/CREATESCSLOCKSS10,NOQOULESSIOVSUACRS DELS ALE PPORER. HAR OCLEEF. BAR 
MAC/LIST MYCLIOCEPS/LISOSYSSLISRARYSLIB/LIE 
LINKSMAPSFULL MYCLE eSYSSSYSTEPSSYS.STE/SSELECTIVE 

SET PROCESS/PORIVECSISPRY .CHKRNL oPRMG3L) 

COPY MYCLILEXE SYSSSYSTEMS#.2 

& QUN SYSSSYSTEMSINSTALL 

SYSSSYSTEMSMYCLILEXE/SSHARE 

$8 SET NOVERTIFY 


AAQanea 


Listing 3-9: Sample Run 


emycir 

LIBRARY /CREATE<( BLOCKS? 10» MQDULES310)/MACRO DEFS.MLB PPDNEF. MAR» DCLDEF MAR 
MAC/LIST MYCLISDEFS/LIB+SYSSLIBRARYSLIB/LIBS 

LINK/M@P/FULL MYCLI»sSYSSSYSTEM?SYS.STB/SELECTIVE 

SET PROCESS/PRIV2( SYSPRYV s CHKRNL » PRAGBL) 

COPY MYCLI.EXE SYSSSYSTER:2.8 

RUN SYSSSYSTEMS INSTALL 
NSTALL> SYSSSYSTEM:MYCLI . EXE/ SHARE 

SET MOVERIFY 


OP Hrv1 eg GHA LY w 


SHOW PROCESS 
SL“MAY"1982 22:27°59.52 OPA: User : MUIZNIEKS 
Pig : 00130041 Peace. nseae 3 OPAC? ure  : C€O11°2303 
Priorsty ; 4 Default file spree. : DRAOs CCOURSE.SYSPRG.CLII 
Devices aliseated : OPAO? 
$ 
& DIR 8.EXE 
Direetorw BRAC: CCOURSE.SYSPRG.CLIIJ 
AYCLI.EXEF1 TODO .EXEs 28 
Tetal of 2 files. 
® LOGOUT 

MULZNIEKS lessed out at 31-MAY-1982 21:328°515.34 
Usernaee: MUIZNIEKS/CLIeHYCLt 
Pessuord: 

Welcome to YAX/VMS version V3.0 on node HARDY 
3ER EXAMPLE CLI 222% 

ENTER IMAGE NAME SYSSSYSTEMSPIP B.EXE/FU 
Directory DROS CCOURSE.SYSPRG-.CLII 
Ji-mMay-82 21:28 


MYCLI.EXES1 (241604) 6c/6.~ . JI-MAY<$82 22°27 €112250] CRWED+RWEDrREs) 
TODO. EXES28 (241092) 18./18. SI-MAY<BS 21°25 C1i»,250)] CRBEDsRWED: RE? J 


Total of 24./24. dblseks in 2. files 


ENTER TMAGE NAME SYSSSYSTEM:SLOGINOUT 
MUIZNIEKS lossed out st S1-MAY-1982 21:28:54.73 


3-48 
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Listing 3-18: Second Sample Run 


Username: MUIZNIEKS/CLI@MYCLI 
Welcome ta VAX/VMS version V3.0 on node HARNY 


S88 CXAMPLE CLI sax 


ENTER IMAGE NAME 
ENTER IMAGE NAME TODO 
CHOICES: 


1. Look sat TO DO list 

2. Add itea(s) to TO DO list 

3- Move ites from TO DO list to DONE list 
4- Remove ites coarletely froe TO DO list 
Se Look at DONE list 

bo Exit 

? 6 

ENTER IMAGE NANE 

mh d 


een CONTROL-Y AST se 


ENTER IMAGE NAME TODG 
CHOICES: 


ie Look at TO DO list 

2. Add itea(s) to TO DO list 
3. Move 

“" 


Bze CONTROL-Y AST £82 


3. Move ites from TO DO list to BONE list 
ENTER IMAGE NAME 
ENTER IMAGE NAME BYE 
AUIZNIEXS lossed out at SI~MAY~1982 22330°312.29 
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WRITING A SYMBIONT 


INTRODUCTION 


Symbiosis is a term normally used to describe a relationship that 
ts -beneficial to both entities. The entities (the Job Controller 
and the symbionts) are performing functions that are beneficial to 
each other. 


The Job Controller performs several related functions: 
Management of interactive processes 
Management of batch queues and jobs 
Management of symbionts 


Management of the accounting file 


The symbionts (input and output) perform the detailed operations 
of printing a file or reading in cards to be placed in the batch 
queue. because the symbionts are subprocesses of the Job 
Controller, they are created and deleted by the Job Controller. 
The symbionts also communicate with the the Job Controller via 
mailboxes. This means that the symbionts must adhere to strict 
rules of communication in sending to and recli@ving information 
from the Job Controller. 


Due to the degree of interdependance the symbionts and the Job 
Controller have with other, both will be discussed in this module. 


OBJECTIVES 


e Describe the general contents of messages exchanged between 
the job controller and symbionts. 


e Describe the implementation of the Job Controller's queue 
file, and discuss the implications of its implementation as a 
global section. 


e Write a symbiont that communicates with the Job Controller. 


RESOURCES 
JOB CONTROLLER SOURCE LISTINGS 
PRINT SYMBIONT SOURCE LISTINGS 
INTERNALS/DATA STRUCTURES MANUAL 


WRITING A SYMBIONT 


JOB PRINT 


CONTROLLER SYMBIONT 





PER-PROCESS 


SYSTEM SPACE SYSTEM SPACE 









DEVICE 
DRIVER 


TK-9177 


Pigure 4-1 COMMUNICATION TO JOB CONTROLLER 


e JOB CONTROLLER is a full process 
- event driven 
- responds to information placed in mailbox 
- outstanding SQIO on mailbox 


e Mailbox communication with 
- User processes 
- Card readers 
- Symbionts 


WRITING A SYMBIONT 


JOB CONTROLLER FUNCTIONS : 
Interactive Jobs 


a. Creation = 
Responds to unsolicited input message 
Process created running LOGINOUT.EXE 


b. Activities 
Responds to messages from CLI (i.e. PRINT) 


c. Deletion 
Records accounting information 


Batch Jobs 


@. Creation 
Responds to unsolicited input message 
Process created running INPSMB.EXE 


b. Activities 
Same as for interactive jobs 


c. Deletion 
Same as for interactive jobs 


Symbiont Manager 


a. Creation 
Symbionts created via operator action 


b. Activities 
Mailboxes messages sent to Symbiont assign 
jobs to print. Symbionts do not see queue 


c. Deletion 
Symbionts deleted via operator action 


WRITING A SYMBIONT 


4. Accounting Manager 


a. Activities 
Interactive or batch job termination 
Print job completion 
n Login failure 
6b. Additional DCL commands (SSET ACCOUNTING) invoke the 
Accounting Manager | 


WRITING A SYMBIONT 


Programmer Interaction with JOB CONTROLLER 


Function Method 


Send information 
to the Accounting 
Manager SSNDACC 


Send information 
to the Symbiont 
Manager SSNDSMB 


Send a file to be 
printed : SPRINT 


Initialize and 

control of the 

queues . | SINIT/QUEUE 
SSTART/QUEUE 
SSTOP/QUEUE 
SDELETE/QUEUE 
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———1 JBCS 
—LREADMB | 





> RET 





TK9174 


Figure 4-2 Job Controller Code Flow 
e Initialization 
e Main Routine Loop 
e Mailbox AST 
- if unsolicited TTY or CR, SCREPRC 


- else issue SWAKE 


WRITING A SYMBIONT 


SET JBCSE XCEPTION 


ASSIGN MBX CHANNEL 


i= 

. : ow 
9) 

44 

e 

+ 


INIT WORK AREA LISTS 


OPEN ACCOUNTING FILE 


SCRMPSC QUEUE FILE 


CLEAR CURRENT INFORMATION 


SUPDSEC 


SET UP MAILBOX AST 


BRW 


JBCSLOOP 


Figure 4-3 Job Controller Initialization Flow 
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Listing 4-1 Mailbox Ast Code (page 1 of 7) 


J8CM3IN @JO8_ CONTROLLER “ATK ROUTINE 3-JUN-1982 22529240 VAX-1i Macre Y03—-06 | 
¥O3=001 SOC S2TL30xK READ AST 26—-8PR-1982 17202356 _BBSOSEJOBCTL.SRCIIECMAINLMA 
- e104 662 «SO8TTL JOC MAYLEOXK READ AST 
6168 6&3 seo 
0108 666 $ SUNCTIOGNAL DESCRIPTIONS 
0108 66S 3 
O1os £66 3 YMIS ROUTINE IS ENTERED WHEN A MESSAGE HAS BEEN 
6108 467 3 OELIVERED THRU THE JOB CONTROLLERS MAILBOX. 
610s 668 3 THE SST PARAMETER LS THE ADDRESS OF THE JOB CONTROLLER 
eifa 662 ¢ PESSAGE BUFFER, THAT IS THE ADDRESS OF THE QWAD WORO LIST 
o1Ca e789 3 MERCER, WHICH TS FOLLOWED SY A QUAD WORD £70 STATUS SLOCK. 
ota e7t 3 THIS IS THEN FOLLOWED SY THE DATA. IN ALL CASES THE FIRST 
eica 472 3 WORC IN THE OATA IS MESSAGE TYPE IDENTIFIER FOLLOWED BY 
C208 673 3 THE ACTUAL OATA ASSOCIATED WITH THE MESSAGE. 
o1ca 476 ¢ TRIS ROUTINE ENTERS A SPECFIC ROUTINE DEPENDING ON THE 
6168 675 3: THE MESSAGE TYPE, 
€16e 67m ¢ 
oics 77 3 CALLING SEQUENCES 
e268 678 3 
61oa e79 ¢ THES ROUTINE ITS ENTERED ROM THE SYSTEM AST 
O1Ga eeo °: SELIVERY ROUTINE USING THE CALLG INSTRUCTION. 
C1ieS 681 3 
6iGa P22 $ INPUT PARAMETERS 2 
OLGA 683 
orca 686 3 AN ARQUMENT BLOCK WITH THE FIRST ARGUMENT THE 
eres 62S 3 ADGRESS GE THE MESSAGE BUFFER INTO WHICH THE 
eee 684 3 MESSAGE HAS SEEN CELLIVERED. 
6Lee eer: 
e1os 682 5 JUTPHT PaRamEeTeas: NONE 
OLeA 689 ¢ 
cerca £90 3 COMPLETION CooSss: NONE 
Crea 692-3 
eres 642 3 $I5€ EeFeCTS: NONE 
eics £9? Seo 
eies &96 
G13 29S jREswessrs $ AST ENTRY POTNT 
o37€ C1f3 £96 oW9RO AMERZ RT RE RSRGORILD> § REGTSTER SAVE “ASK 
33 C165°C# ge ¢C1ee 697 wOovag W* JOC ST_OATASLK,Ri1 $ SET WORKING OATA SLOCK AODRESS 
ss Se 2c C2 CLley £98 90VL CAPD ERS 3 GET MESSAGE PACKET ADDRESS 
Se as 3s 3 «Ges 699 “OVZWL JCM_A_ TASB OZCRSI RS + STICK UP MESSAGE SYTE COUNT 
$§ 1¢ ci C289 sof aceey @ICM_T_MSGOATA.RS 3 POINT REGISTER AT DATA AREA 
®) 2 2P eLes Sot CY TWL €@5)o,20 + GET MESSAGE TYPE FROM PACKET 
recas8 2 @1se SC2 PUSHAL 841008 3 SET RETURN FROM HESSAGE PROCESSTI 

CLF2 Sot CASE RO_- $ QECODE MESSAGE TrPe 
O12 S06 LIMIT © EMSGS_TRMUNSOLIC,-7SASE VALUE FOR CASE 
cre2 £05 CJICSTTUNSILING= 8 TERMINAL UNSOLICTED OATA 
cree $046 JBC SCRUNSOLIN,@~ $ CARDO REACER UNSOLICTED INPUT 
C1F2 $e? SSCSSELETPRE p= : GELETE PROCESS 
OL1F2 $08 JECSSNOST MENG = 3 SENG TO SYNSIONT MANAGER 
OF? $09 1085 3 RESERVED Code 
C1LF2 $14 1089 ¢ RESERVED COOE 
C1E2 S21 108,< 3 RESERVED Coos 
CLF? $12 JOCSSYMEINITL&@ 3 SYMBIONT INIT COMPLETE 
Cre? $12 JOCSSYT4YRDONE.— 2 SYMBIONT HAS COMPLETED Jo8 
CLF 2 S16 JSCSSNOACHANY— 3 SEND MESSAGE TO ACCOUNTING MANAG 
O32 $25 JOC SPURGEPRE, = 2 PURGE PROCESS 
CLF 2 $14 JOCSOELETING = ¢ OELETE IMaGE 
CLF? $17 : IN CSPURGEING o~ 3 PURGE IMAGE 
o1®? sya JOCSSYSFUNC,=- 3 SYSTEM FUNCTION 


WRITING A SYMBIONT 


Listing 4-1 Mailbox Ast Code (page 2 of 7) 


oSIS_CINTROLLER VAIN ROUTINE 3=JUN—“1982 22329260 VAX-11 Macro V03-06 Page 12 
JOC “ATL3I0X @E4C AST 2ZO—APR—19BZ 17202256 _OBSOSCJOBSCTL.SRCIISCMAINA MARS? €6) 
O1F2 $19 > 
0212 $29 1¢8s SHOW _LERROR INVALTO_MESG ¢ SAQ MESSAGE RECELVED 
03 Tt C224 $21 ar 1108 s DEALLOCATE THE MESSAGE BUFFER 
95 5¢ Ed 0216 $22 10935 sLac 80,1208 3 SR If MESSAGE SUFFER STILL IN USE 


~~ ! 
7 
” 
2 


Oe 32¢ 6€ 0219 $23 1290385 INSQUE 346CAP),2ICO_Q_FREESUFROSCR11) 3 RELEASE CURRENT SUFFER IF FREE 
se7¢ 33° «6228 S26 12908: 3$Sw JOCSREAONS s RESTART £70 ON MAILBOX 
Q& 9221 525 Ret 3 OITSMISS AST 
0222 $24 
0222 $27 3 
0222 $23 3 “€SSAGE IS SYMSIONT DONE 
0222 $29 3 
6222 $39 ¢ ADJUST STATE FOR SYMBIGNT TO REAOY FOR NEXT #ILE 
C222 $31 ¢ INSERY ITS TASLE IN SEVICE LIST 
0222 $32 3 SET THE MAIN LINE SYNC FLAG 
. C222 $3? 3 
0222 S36 JBOCSSY“BOONE: ¢ SYMGIONY ITS COMPLETE 
S$ 62 0222 $25 PYSHL RS $ SAVE MESSAGE BUFFER ADDRESS 
$i Fa a§ 5Q@ 0226 $34 sOVL KICM_C_TOSBe4—<JCM_T_MSGOATASZ>>CRSD,21 3 GET SENDER’S ID 
*ecs°’ 33 228 $37 ssow SYMSFINOSYMCTL . $ ROCATE THE SYMALTONT CONTROL TABLE 
2 #3 60228 $28 SQPR @2NCRID $ POP BUFFER ACORESS TO WORK REGISTER 
33 as 37 9% 0229 $39 Cres @SCT_K_SUSPNOSSCT_S_STATECRS) $3 Suspend issued? 
36 2 0231 569 aneQ Ss : Sr if no 
ee as 63 99 C233 $41 “Ov8 SSCT_K_CEGFIL»SCT_S_STATECRS) $ Mark as idle 
$4 32 3“ 6227 $42 $83 “OVZWL CRL3D%9RO ¢ Pick up jeb status 
Qos &€ £€q ¢C23a 543 sue#s RO,68 3 Be if successful 
16 45 50 £3 0229 S46 “OVW 20,SCT_wW_JOaSsTaTcRrs) 3 Save error status for sainline 
26 a3 21 €9 6241 $45 682 aoou CRIDOSSCT_LL_GETENTCRS) 2 ACCUMULATE ACCOUNTING : 
2c 45 ay C2 @26¢ $46 aoou CRIDOOSCT_L_LQIOCONTCRS) & INFORMATION ON GET°S ,QTO°S 
$9 3% 3C «002469 $47? MOVZWE CR1LD%, 20 ’ GET PAGES AS A LONG wORO 
1c 45 50 €2 C26C $44 agou 20 oSCT_LIPAGCNTCRS) s ANO ACCOUNT FOR PAGES 
0284 547 
Sé 24 45 32 0284 $#4 MOVZWL SCT_LWLOINGEXCRS) 26 2 POINT R6 AT QUEUE HEADER 
$4 CIC IG6aF°sF C2 C2s6 $$i agot JSECSQ_RETAOR RG 3 GET acTuat sAcoR 
a2 38 05 Cc: Et C283 Sez sec OSHQSV_ STOPPED ,S¥QT8_FLAGSCROI 2108 ¢ SR QUE NOT STOPPED 
se Se C269 $s2 Chen R0 > SET TO OEALLOCATE OEYVICE 
7033° 39 0262 $£6 sssw SY"SALLOOEAL $ GO OCEALLOCAT® OEVICE 
3S f1 0265 385 ass are SY“@EXIT $ EXIT SYMBIONT SERVICE Ast 
C267 $84 5 
C2¢é7 S€7 3 MESS8GE TS A SYMATONT HAS INITED. 
6267 $s@ 3 Save THE MATLEGX UNIT IN THE SYMSIONT CONTROL TABLE 
C36? $$? 3 ANO INSE°T TAGLE IN SYMBIONT SERVICE LIST 
0267 $60 ; SET TwE SYNCRONIZING EVENT FLAG TO GET THE MAIN STARTED. 
0267 $61 3 , 
Cla? S62 JACSSYMSINITS H 
$5 73) «92€7 $6% SUSKL CRS) s SAVE MAILSOX UNIT NUMBER 
31 fa as CS ¢€243 564 “Ovt KSCH_OC_TOSH SK JCM _T_MSGOATAS2Z>>CRS5),R1 ¢ PICK UP SENCER IO 
C96" 39 9265 Séé 8Saw SY“SFEINOSYMCTL $ LOOK FOR SYmMBIONT CONTROL TABLE 
ya as 3€ fF? 027) $65 CvTtw CSPI oSCT_W_MBCHANCRS) § STORE MAILSOX UNIT IN CONTROL TABLE 
C276 S€? SYMSEXTT: > COMMON EXIT FOR SYMBIONT SERVICE 
36 §3 2 OF O274 S€8 TNSQUE CRSIoeSICO_LO_SYwASRVSSCAIL) § PUT THIS SYMATONT IN SERVICE QUEUE 
a1 33 «0273 $69 Suset *1 3 SET STATUS TO AST OLTSPATCHER 
tF 110060278 $74 ses JSCSSTINCMAIN 3: SYNCRONIZE WITH MAINLINE 
O27¢ ort 
e272 S72 [See eeeeeaeess sete sess se seeseses £2 SETS TE TH ERASERS SSARARALTSARAAAASSALLS SATEAATEE 
027° $73 3 
C272 37% 3 INSERT MESSAGES IN THE P@OPER QUEUE 
c27c S75 3 NO SET THE SYNCRONIZING FLAG FOR THE MAIN LINE 


1CMOIN 
13-001 


Gs 


$0 


£0 


$6 


és 


#9 


€9 


0% 
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Listing 4-1 Mailbox Ast Code (page 3 of 7) 


ae 


12 


46 
oc 


as 
66 


oo 
ac 


32 


“JIE_CONTRILLER MAIN ROUTINE 


J2C MATLSGX READ 


TE 
a1 


o27¢ 
e27C 
o27¢ 
927€ 
o27¢ 
e27¢ 
0289 
6282 
6282 
0282 
0284 
C288 
0288 
0288 
ozec 
0288 
ozs 
C28€ 
o2z8€ 
o2z8¢ 
C288 
0292 
0294 
0296 
0296 
0296 
0296, 
0294 
0294 
0798 
0298 
0284 
aza8 


S75 
S77? 
$78 
$79 


~ $89 


sei 
$82 
$83 
$84 
Sas 
585 
$87 
$88 
$se9 
$96 
591 
$92 
$93 
$96 
$9$ 
$94 
597 
$96 
$99 
609 
581 
402 
403 
606 
$06 
606 
$07 
$08 


ast 


e 
e 
© 
e 
e 
e 


SECSSNDACHANS 
“OVAG 
Bre 


JSCSSNOSTMAN: 
mOvAQ 
ors 


JBCSSYSFUNC? 
"OVAS 
Ore 


SSC SPURGCET NGS 
JOCSOELETINGS 
SJECSPYURGEPRCS 
JBCSOELETHRCs 
MOVAQ 
$Rr8 


de 00 08 0 


PU SHEL 


INSQUE 


JOCSSYNCBAING 


SU AKE_S 


Pare 
LEY] 


THIS MESSAGE IS PROCESSED 


BCSINSKORKLISTS 


B—JuUN-1LGE2 22329540 
24-APR-1982 172302356 


JCD_@_ACNTFILCRI1) RO 
JOCSINSWORKLIST 


ICO_LO_SYVMOHANCRI19,20 
JBCSINSWORKLIST 


JCO_Q_SYSFUNCCR129 20 
JOCSINSWORKLIST 


3CB. VU PROCDELCRI19 RG 
JOCSINSWORELIST : 


INSERT IN WORK LIST 


#0 
2oC AP) e3ECROD 


SeUcRg> 


ee co ce 


ee ce of 


ee of of 


0 CO Be O68 e6 v6 00 


VAX-11 Macro YO3-00 Pa 
_DBSOSCJOBCTL.SRCIISCHAIN. MARS 


AT TMaAY LEVEL 


SKKCSCSVL CE LS SSSR LVSSTST SE SSLLETSSSS KEG SCSI VS SESS SOSSSHKOLSSESSSSLASSSVESKSLKE SS 


SEND MESSAGE TO ACCOUNTING RANAGER 
GET AOORESS OF PROPER QUEUE 
INSERT IN WORK LIST ANO START THE | 


MESSAGE IS FOR THE SYMBIONT MANAGE 
SET PROPER LIST HEADER 
IMSERT THIS IN WORK LIST 


SYSTEM FUNCTION HAS OCCURRED 
SET PROPER LIST MEACER 
INSERT YHIS IN WORK LIST 


IMAGE PURGE HAS OCCURRED 
IMAGE DELETE HAS OCCURRED 
PROCESS PURGE HAS OCCURRED 
PROCESS DELETE WAS OCCURRED 
SET LIST ADDRESS 

INSERT THIS IN WORK LIST 


GET RETURN STATUS FLAG 
INSERY RECORO IN LIST 

SET MAIN“-LINE SYNC FLAG 
WAKE UP THE MAINLINE LOOP 
GET RETURN STATUS 

RETURN TO AST OTSPATCHER 
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Listing 4-1 Mailbox Ast Code (page 4 of 7) 


-J3°_CINTOOLLE? MAIN ROUTINE 3—JUN-1982 22229240 VAX~11 “acre YO3—-00 Page 14 | 
TERPINAL/CARD_CEAQER UNSOLICTED OATA 26—aPR—oL982 175022556 _OBBOSCJOBCTL«SRCJIBCMAINAMARS1 (7) 
e289 $11 oSSTTL TERMINAL/CARD_REACER UNSOLICTED OATA 
02489 412 See 
7 @2a9 $13 ¢ SUNCTIONAL OESCRIPTION: 
02489 616 3. 
0249 61S 3 THIS ROUTINE IS ENTER BY THE AST DISPATCHER WHEN THE 
0249 614 3 MESSAGE VECELVED INDICATES THAT UNSOLICTED INPUT HAS 
C247 . $17 3 BEEN RECEIVED FROM A UN“ASSIGNED UNIT RECORD DEVICE. THIS 
6249 618% 3 ROUTINE ISSUES A REQUEST TO CREATE A PROCESS wITH ITS 
0289 617 : NEVICES *INPUT® AND "QUTPUT® ASSIGNED TO THE ASSOCIATED 
C243 $29 ¢ DEVICE. IN GROER TO PERFORM THIS, THE DEVICE NAME STRING 
0229 421 3 IN THE MESSAGE BUFFER. THE FIRST 2 LONGWOROS CLIST LINKS) 
02489 622 3 ARE USED TO CREATE THE STRING OESCRIPTOR, AND NAME STRING 
0249 6233 I$ BUILT USING THE CONTROLLER NAME AS IS AND AODING 
0209 62% 3 THE UNIT NUMSER ON THE END, CONVERTING FROM BINARY TC 
0289 $25 3 aSCiIte 
02489 626 3 
0283 627 3 CALLING SEQUENCES 
6249 423 3 
0289 $29 3 se JOCSTTUNSOLIN $ FOR TERMINALS 
9209 $39 3 3$3 JOC SCRUNSOLIN $ BOR CARD REAORERS 
0289 $31 3 
a2489 $32 3 INPUT PARAMETERS S 
O29 6333 
02489 626 ; RS POINTS SEYONO THE MESSAGE TYPE CODE IN THE MESSAGE BUFFER. 
G289 635 3 THAT IS_ POXNTS AY A WORO CONTAINING THE SINARY UNIT NUMBER 
G289 $34 3 FOR THE TERMINAL. THIS IS FOLLOWED SY TME CONTROLLER NAME 
e2a9 437 3 _ 38 & COUNTED ASCII STRING. 
6289 638 3 
02489 539 3 IMPLICIT INPUTSS 
0289 640 ? 
0229 Sot 3 REGISTERED RO TO 2S MAVE BREEN SAVED ANDO MAY 8E 
02489 642 ¢ USED AS NEEDED BY THIS ROUTINE. 
0289 643 3 
0249 $66 3 OUTPUT PARAMETERS? 
o2a9 645 3 ; 
O249 546 ° RO IS RETURNED TRUE TO INOICATE SUFFER TS FREE 
0289 447 3 ANDO, THEREFORE, MAY BE REUSED. 
o289 448 3 
e249 49 3 [MOLICTY ouTPuTs: 
0289 450 3 
02489 551 3 A PROCESS TS CREATED RUNNING THE LOGIN OR THE INPUT SYMSIONT IMAGE 
0249 $§2 3 
0229 653 3 COMPLETION CODES: NONE 
0289 6$4& 3 
6289 635 3 SIDE EFFECTS: NONE 
0243 636 3 
6289 £7 t= 
02489 $4 oENABL LS! 
0283 439 
02483 662 JOCSTTUNSOLING 3 TERMINAL UNSOLICETED INPUT 
33 F364 CF 7 O2Aa9 461 “QVAQ W*JOCSQ_LOGING 23 2 SET IMAGE NAME TO START 
OL gc° €S g2ac 662 €xTZy S*CEXESV_CONCEALED, @1e—- =; USE "CONCEALED DEVICE NAME*® FLAG 
£6 09090900°SF e281 663 G*EXESGL_FLAGS 24% $ 
37 19 0287 664 6s3s8 PROCRE 3 PERFORM A PROCESS CREATE 
329 «Se £> 0289 665 SLSC 20.508 3 8R TF COULON°T CREATE ONE 
59 £1 3c) 2eNC 466 “QVZwL 21,20 $ GET PROCESS INCEX 
5030 °R8F 50 81 a2zee 667? cuew RO, @CJBCSG_INTICBEND-JBCSG_INTJOSFLG>@8 3; INDEX WITMIN SIT ARRAY 
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Listing 4-1 Mailbox Ast Code (page 5 Of 7) 


J8CHATY 
¥03-002 
28 
23 1090 °C*? 50 
12 
69090909°9F 


53 F432 CF 
54 

Qe 

$0 92 


oST8 CINTROLLER VAIN ROUTINE 3~JUN@1982 22229546 VAX<-i1l Meera VO3—06 
TEIPLTMAL CART VEADER UNSOLICTED OATA 26-APRo1982 17302356 _DBBOSC IGHCTL .SRCJISCMAINA A 
1S G2ce 668 SGEOU $08 $ EF NO - DONT COUNT INTERACTIVE 
£2 ¢2c$5 $é4 sess RO ov“ JECSG_INTIOBFLGSSOSS SET FLAG AND BR ITF SET, DON,T BU! 
o2ce $70 SCBRANL_S 8*208 3 a09 1 TO COUNT Of INTERACTIVE JG 
12 «8263 67% 8es $6 $ 
6909 o208 $72 2088 © WHRO 0 $ KRERNAL ACCESS MODE ENTRY RASK 
£4 62¢e¢ 673 tncw 98SVS8GH_TIGECKT 3 COUNT NUMBER OF INTERACTIVE 3086S 
66 6262 474% REY 8 
C23 575 
0283 $76 JECSCRUNSOLING $ CARD READER UNSOLICETEG INPUT 
TE 6263 57T “OVAQ JBCSO_INPSME R32 3 SET ADDRESS OF XMAGE TO ACTIVATE 
64 dO2E8 678 CLet R46 3 DON’T USE CONCEALED OEVICE FOR C 
19 «626A 679 6ss6 PROCRE s CREATE THE PROCESS 
06 G2eCc 689 SOS8s “OVL 81.20 ¢ SEY RELASE THE SUFFER FLAG 
QS O28F 4at RS$38 6 RETURN TO AST OXYSPATCHER 
02#9 $82 
Q2FG 683 oOS48t £38 


WRITING A SYMBIONT 


Listing 4-1 Mailbox Ast Code (page 6 of 7) 


~JIO_CONTROLLER SAIN ROUTINE 3—JUN“1982 22229260 VAX=-11 Macre v03-00 Page 16 


TERMINAL/CARO_QEADER UNSOLICTED DATA 24—APRH198Z 17202556 _DBSOSCJOSCTL.SRCJISCMATINA MARS €7) 
O2F9 $85 
= 029 686 3 
O2F9 687 3 LOCAL SUSROUTINE TO CREATE A PROCESS FOR UNSOLICITED INPUT 
O2F0 688 ; 
6 2F0 689 ¢; INPUTS: 
O2F9 690 ¢; 
02f0 491 3 Q3 = DESCRIPTOR FOR PROCESS NAME 
020 692 3 R& = 1 ITF INPUT. CUTPUT, ANDO ERROR ARE SUPPOSED TO 8E 
O2FO 693 ¢ CONCEALED OEVICE NAMES LIKE "__TTAG<® 
O2F9O 59% 3 = 0 IT® NOT USING CONCEALED DEVICE NAMES. 
02F9 695 3 . 
O2#9 $94 
’ $8 95 3C «6020 S97 PROCRES MOVZWL (250.20 2 PICK UP BINARY UNIT NUMBER 
$2 6s 9& O2F3 698 : SOVZBL «CRSIOORZ 3 GET LENGTH OF CONTROLLER NAME 
$2 $5 C9 02F5 69s Aoot RS oRZ 3 ADORESS OF ENO OF CONTROLLER NAME 
®004° 30 02*9 760 8$8u SBCSBINZASC $ CONVERT UNIT TO ASCIT 
82 34 990 «a2Rc 701 aGVS BAAS 27 oCRID0 2 VERMINATE OEVICE NAME WITH COLON 
7s S® 9 90 «(02k 72 “ovs O29 47 7 9-CR5S) 3 PUT UNDERSCORE AS FIRST CHAR IN NAME 
4$ 9# 9303 703 PusMas CRS) $ PUSH AOR OF °° NAME 
7€ $2 $$ C3 0305 70% sust3 RS oRZe—-CSP) 3 LENGTH OF °° NAME 
7$ St SF 300 0«=60309 70$ move BP AS 7 CRS) 3 PUT SECOND °° ON FRONT 
65 9F e360 706 PusMAB CRS) $ PUSH AOR OF © NAME 
a3 $2 $$ C3 305 707 SuaL3 RS oRZe- CSP) .3 LENGTH OF 8°? MARE 
$é 09 6333 708 PUSHL RE 3 12 TF USING CONCEALED OEVICE FOR INPUT 
0315 709 3 GUTPUT ANO ERRROR, O IF NOT 
: 0335 710 3 
0315 T21 3 O8CSP) = CONCEALED OSVICE FLAG 
e325 712 3 CSP) = DESCRIPTOR FOR = NAME, CONCEALED OEVICE NAME 
6325 713 3 12CSP) & DESCRIPTOR FOR 9_° NAME, PROCESS NARE 
9315 714 ¢ 
$5 ac 4€ S€ 0315 735 MOVAL 12€SP) 525 s ACORESS OF PROCESS NAME DESCRIPTOR 
$6 38 C3 9339 7145 BOVE RSeRS $ ASSUME NOT USING CONCEALED DEVICE NAME 
. 06 £€ €3 031¢ 17 sisc €SP9,108 2 SRANCH ITF NOY USTNG CONCEALED DEV NAMES 
$4 Qs Lf os Bass r18 MOVAL &CSPD_ RO 3 GET CONCEALED OEVICE NAME DESCRIPTOR 
: 0323 T19 3 
nase 723 3 QOC€SP) IS AM UNITITIALIZED SCRATCH LONG WORD 
0323 r21 ¢ 
£9 SE QF 0323 722 1083 MOVAL CSP) RO 3: GET THE ACORESS OF SCRATCH CELL 
$3 €9690900°SF 9% 0326 722 MOVZBL SOSYSSGB_OEFPRT RY s SET SYSTEM DEFINED PRIORITY 
6329 T26 SCREPRCE_LS = 3 CREATE A PROCESS 
0329 725 INPUTS (RED9— s OEIVICE INPUT IS TERMINAL 
9323 726 OUTPUTS CRS)—= 3s LIKEWISE FOR THE OEVICE OUTPUT 
6329 727 ERRORS CROD—- s ANO ALSO OEVICE ERROR 
Q320 723 BASPRIS R1,—- $ INITTAL PRIORITY OF JO8 
e329 729 PIDAORS CRODe=- s PLACE TO STORE PROCESS If 
6329 730 PRCNAMB CRS)_=- 3 ESTASLISNH PROCESS NAME SAME AS DEVICE 
03253 731 TMAGE® (RB) 0- 3 ITmaGE TO RUN 
6323 732 : PRVAORE W* JECSCLPRIVMASK.—-3 PROCESS OEFAULT PRIVILEGE 
0320 733 UICH&<1 91604) s ure ITS £1.49 
£7 $9 €3 0353 736 eLss 202608 : 8R ITF ALL TS OK 
$$ O& 6355 T2$ CLRe RS 3 ASSUME OUPLICATE PROCESS NAME 
2096 2: $0 ®t 0354 TRA Chew RO 8SSS_OUPLNAM ¢ IS ERROR OUPLICATE NAME 
cé 13° 0359 737 SEQL 10s 3 BR TF YES, TRY TO CREATE WITH NO NAME 
o3s* 738 SHOW _ERROR CREATE_PeOlt : REPORT THE ERROR 
$2 4E 9€ 0361 779 mOVAGB CSP,2%2 ¢ GET ADDRESS OF SCRATCH WORD 
0364 760 SASSTGN_S CR400CR2) ¢ ASSIGN A CHANNEL TO THE OEVICE 
22 £0 €? 0371 761 erec 20.608 ¢ O88 IF THIS FAILED 


t 


WRITING A SYMBIONT 


Listing 4-1 Mailbox Ast Code (page 7 of 7) 


JOCMAIN 
v03-601 


ge $0 €3 
58 046 

2 B4 

5§ 10 i] 
o$ 


6$ $2 63 $2 $0 25 S77 29 63 #2 6A 25 
26 73 73 68 53 6© 72 70 20 2C S& a1 
72 OF 72 72 65 26 6S T& $1 65 72 63 


63069 
96 


GQ3IS0C6E 3°SF 04 
360094954 °Ef° 392 9A 

OGOOGSES°SF 69 

CHORKSEQ° SE 


ae $8 e9 
eagcaees Cee 56 
666600960 °GF F3 

28 090904604 °2F 
OOCCOeE 3° SF os 


8 13 
GOGGCSES°EF ct? 
%3 1? 

a5 


O37% 
0376 
6376 
6376 
8376 
O3746 
0376 
0397 
0398 
0344 
O3a6 
0348 
6343 
034 
03ac 
0388 
o3ce 
0360 
0303 
0369 
0369 
6302 
8300 
63e¢ 
@30€ 
6362 
6368 
Care 
9366 
Q3€¢ 
Q3€2 
O3FL 
O3FS 
63FS 
6384 
6469 
6206 
G12 
04618 
G6ts 
0426 
6625 
Q42€ 
042 
Qe2é 
GeZze 
G62€ 
G4Ze 
6443 
06S6 
Cees 


762 
743 
Tbs 
76$ 
766 
767 
748 
749 
756 
7S1 
732 
7$3 


7$4 


735 
736 


7$7 
788 
739 
766 
76% 
762 
763 
766 
765 
764 
767 
769 
769 
775 
TTt 
772 
773 
TT 
77§ 
776 
v7? 
779 
779 
786 
ret 
782 
T#3 
7846 
78s 
786 
787 
7es 
789 
790 


JOB _COMTROLLE® MATIN ROUTINE 
TEQIMINGL/CARG_TEAOER UNSOLICTES OATA 


3 JUN—1982 222292460 
24-APR-1982 172302286 


VAX-11 Macrae Y¥63-00 
~08862C JOBCTL..SREIISCMAT? 


WRITE RESSAGE YO TERMINAL 


AST WHEN WRITE IS OONE 
CHANNEL NUMBER TS AST PARAMET 
STRING 


NORMAL CARRATGE CONTROL 

BR If GIO Was ACCEPTED 

ELSE O€ASSIGN TO RE-ENABLE UN 
-ROSLECSPROCESS CREATE ERROR 
CLEAR SCRATCH WORD OR GET PRO 
CLEAN GFF TWO STRING OESCRIPT 


OEASSIGN THE CHANNEL 


SQTO_S CHAN#(R2)5- 3 
FUNC BATOS_WRITEVELK = $ WRITE THE DATA 
ASTAORBB*TTMSGAST.= : 
AS TPRMBCRZ) = 3 
P128°1008—,= $ AODRESS GF MESSAGE 
P2u$°8C1105—-10083_— 3 LENGTM GE RESSAGE 
942032 Hy 
BLSS RO,S08 : 
SOASSGR_S (RZ) $ 
SOs: Cure RO : 
6083 PQPR SOn<cRT> 3 
aoot 8160S? : 
RS8 3 
109$¢ eASETI NZIBCHUmPREREAT, precess create error 
11683 
TT@SGAaSTs 
oWDRD 0 2 AST ENTRY POTNT 
SOASSGN_S SC AP) 3 
RET 3 


Wh oo 20 08 


yesnourtys 
CLAL JO8_L_ POSSIBLE 
SOVZSL #2, JOB_L_PCBINOEX 
1083 MOVE JOG_L_SAVEMOGE o= 
JO8_t_*OuEe 
SCMKONL_ S - 
ROUT IN@CHK _WROAY_BITSe=— 
ARGLST2IOB_L_ COUNT 
SL BC 20.608 
LNCL JSO8_L_ POSSIBLE 
4083 AGBLEQ G°SCHSGL_MAXPIX,— 
JSGS_L_PCBINGEX ,105 
VST. 268_L_ POSSIBLE 
S€QL 1008 
SECL JOS_t_ SAVEMODE 
MLSS =: 1008 
sSeTrmes - 
AS TAORSSYMSCHKLOGINS = 
OAVT IMS JECSQ_NXTMINS = 
REQTOV#e38C_K_MINUTES 
100%? RSB 


20 6 OF c@ oo OO SO oe oF 


eo 08 06 we 06 


LOCAL ROUTINE TO HANOLE HOURLY AST PROCESSING 


CLEAR COUNT CF POSSIBLE PROC! 
SET INGEX In PCR VECTOR 

SEY ACCESS MODE 

FOR AST OELIVERY 

CALL KERNEL ROUT. TO CHECK A 
ADORESS GF ROUTINE 

ADDRESS OF ARGUEMENT LIST 

TF LSC THEN CONTINUE 
INCREMENT COUNT 


LOGP THRU ALL 

FING ANY TO SE DELETED? 
Te €QL THEN NO 

DECREMENT asT ACCESS MODE 
TF LSS THEN OGNE THEM ALL 


SET TIMER FOR CHECK IN A FEW 
AST ADDRESS 

N MINUTES LATER 

INDICATE NOT AN HOURLY AST 
RETURN 


WRITING A SYMBIONT 


CREATE 


BATCH STADET 
JOB 


READ 
MAILBOX m READMB 


SERVICE 
SYMBIONT 





TK-9178 


Figure 4-4 Job Controller Main Loop (page 1 of 3) 


WRITING A SYMBIONT 








READ 
MAILBOX 


READMB 


VFYUPD- 
, QUE 


SHIBER 


SGETTIM 7 dt = (4 ) 
YES _.M@ SRV. = 
B TIMER & 
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j A 
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SERVICE 
TIME 
QUEUE 






TKO192 


Figure 4-5 Job Controller Main Loop (page 2 of 3) 


WRITING A SYMBIONT 


LOCATE 
NEXT WORK 
LIST 


REMOVE | 
FIRST 
ENTRY 









DETERMINE 
NATURE 
OF WORK 





YES 










CASE: 
(SERVICE 
TYPE) 
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Figure 4-6 Job Controller Main Loop (page 3 of 3) 


TK-9191 


3CMAIN 
23-002 


Efececer 





WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 1 of 8) 


398 CONTROLLES 
DECLARATIONS 

9000 29 

69co)6=— 100 

o0co)}=—:101 

coco §8=—:102 

eco) = 1103 

0900) =—.1¢6 

0000) 6=— 105 

6609 106 

0869 69-107 

0000 )=—198 

0300 06109 

g900 110 

0060 86s «112 

cece 112 

0900 6113 

0006 }8=6 814 

6000 86. 12S 

00g0 86116 

coco 8 117 

ocoe 86.118 

0060 86.419 

coco 86120 

ceo) = 1.21 

ees §8=— 1.22 

coco )§8=61123 

6006 0612 

gaco 8= 12 

0923 126 

6613 127 

: 0023 «6128 

0932 129 

6632 130 

e032 «131 

ogee 132 

PREEEBEE C968 133 

GS? 136 

ees? 6135 

61€66969 eS? 13% 

e0000903 0958 137 

COSF 6138 

a8797669 oos® 139 

FEFESRES 9963 140 

0067 162 

Cer 142 

0067 163 

0067 «te 

e860 486165 

0860 86146 

0009 86-167 

00600 148 

0000 §8=—- 169 

e900 6-150 

coos) 86153 

0000 861152 

0000 86153 

0060 156 

090s «6-185 


“MAIN ROUTIVE 3=JUN-1982 22229240 YVAX-11l Maecre VE3-00 8 
: Z6APR-19B2 17302256 _OBSOSCIOBCTL.SROIJBCMAIN. MAI 
eSSTTL OfCLARATIONS 
3 INCLUDE FILESS 
3 
: C2355109578U 
8 
3 EQUATED SY"BGLS: 
SACROEF 3 ACCOUNTING MESSAGE OEFINITIONS 
SRSGDEF 3 SYSTEM WIOE MESSAGE CODES 
ssTsogr 8 STATUS FIELD OEFINITIONS 
SPCBOEF 3 PCS OEFINITIONS 
STPLOEF : IPt O€FINITIONS 
sytsoer 3 JIS OCfFFINITIONS 
sSSoeer 3 STaTus CODES 
SPSLOEF + PSi OEFINITIONS 
JBCPARDEF ¢ DEFINE JO8 CONTROLLER PARAMETERS 
Jecscroer 3 SYMBIONT CONTROL TABLE OEFINITION 
sSPQOEF + DEFINE QUEVE MEADER OFFSETS 
3 OWN STORAGES 
PURE _ SECTION 
JSCSO_JISCNAMSS : TYME NAME OF THE PROCESS 
STRING_OESC <JOS_CONTROLD 
JBCSQ_LOGING ¢ MAME CF INITIAL IMAGE TO acTtivar 
STRING CESC <SYSSSYSTEMSLOGINGUT.EXED 3 INITIAL IMAGE TO ExeCcu 
SSCSQO_LINPSMSs 3 CARO REACER INPUT SY REILONT 
STRING_OESC CSYSSSYSTEMSINPSMB.EXED 3 
JBCSGLPRIVEASKS o LONG eri. + NEW PROCESS PRIVLEOGCE MASK 
JSELQ_TICPERHRSS z 
o LING *“X061066809 3 NGo SF TICKS PER. HOUR 
oL ONG “108 
JBCSQG_LNXTHINSGS $s DELTA TIME GF 2 MINUTES 
et ONG *x0887974C0 
oLONG “1 
¢ DEFINE PSECT TO SOUND ALL OF THE WRITASLE SECTIONS 
IMPURE _OSTA JSCSSRVOTOP 
JBC SRWOTOSss + START OF ALL REAO/SWRITE OATA 
TMOURE DATA JS8C__ RUD END 
JECSRWOENOS ¢ ¢ €NO GF ALL WRITASLE OaTa 
$ SLLOCATE SPACE FOR MESSAGE BUFFERS 
s THESE BUFFERS ARE MAINTAINED IN A SEPARATE PROGRAM SECTION 
3 TO PERMIT AN EXTEND SECTION TO AOD BUFFER SPACE 
TRPURE DATA JSECSRVOMSESER & REAOSURITE DATA-“MESSAGE BUFFERS 
JOCST_“SGBUFRS ¢ SPACE FOR MESSAGE BUFFERS 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 2 of 8) 


AIN -JOB_CONTROLLER 
601 DECLARATIONS 

9909 1$6 

oceoecco § 9600 187 

= ecco 1s¢ 

ecco 159 

ecco 160 

e000 161 

0900 162 

0300 163 

0069 266 

ecoo 165 

0006 166 

6000 167 

6000 168 

0009 169 

0960 176 

0000 LPL 

8000 172 

Cae00cdd 99606 173 

6cd0 176 

6c09 1T7$§ 

0009 174 

69000 17? 

e600 178 

0000 179 

e000 180 

0600 191 

0000 122 

0680 183 

6009 186 

03000585 9000 185 

ooec 186 

0085 187 

aoe4 ie 

0303 1289 

ooe3 199 

e000 191 

009 192 

e000 193 

000° 196 

6909 19S 

99090964 ¢00¢ 196 

00090 197 

“G2a0ecsas 94900 198 

Cas 199 

O6s6 269 

C45 202 

0644 202 

04a4 203 

0485 206 

CNClOest C646 20 

Osat 206 

03070484 Csae 207 

C686 203 

0396304682 04684 2¢9 

Qaec 210 

QG9S96CS FOEeE 211 

06Cs 212 


Pege 4 


@ATN ROUTINE : 3—JUN“1982 22229240 VAX-11 Macro V03-00 
26—-APRH-1982 172302256 _OBBOSCJOBCTL.SRCIISCRAIN. MARS 1 €1) 
o SLRS <JICR_K USIZES—= $ SIZE GF BUFFER TIMES 
JOCK _RAXSUFRD 3 NUMBER TO ALLOCATE 
TMPURE _OATA JOCSRUOMSGEFS . 
JOCST_MBUFENDS ¢ 3 END OF MESSAGE BUFFER SPACE 
2 ALLOCATE THE SYMETONT CONTROL TASLES 
3 THESE TASLES ARE MAINTAINED IN A SPARATE PROGRAM SECTTON 
$ TO PERMIT AN EXTENO SECTION TO AOD TABLE SPACE 
: 
TMPURE_DATA JOCSRWOSYMCTL 
SY¥"9SG_SYMCTLYBL 23 $ SYMOIONT CONTROL TASLE AREA 
oSUR8 <STM_K LMAXSYMB@ $ ALLOCATE A BLOCK FOR EVERY SYmerONT 
@ SCT_K_SIZE> 3 SY THE SIZE OF THE SLOCK 
TeOURE_ DATA JOCSRWOSYNCTN : 
SY "™SG_SYMCTLIBES: s ENO OF TABLE SPACE 
3 CEFINE AREA FOR INTERACTIVE JOS SIT ARRAY 
THOURE_OATA JSCSRWOINT JOS 3 
JOCSGC_LINT JSOBFLG3 3 3 INTERACTIVE JOB FLAG BIT ARRAY 
oS8UK8 €10267895 $ ALLGCATE ENQUGH FOR 1024 PROCESSES 
TMPURE_OATa JSCSRWOINTIOC $ 
J8C8SG6_LINT JOBENO?SS . 3 
TMPURE _OATa 
3 QLLOCATE THE JOB CONTROLLER?’S OaTa BLOCK 
JSOCST_OATASLE we . + CICO_LTLINOEXO~JCO_T_START> § FINO OFFSET TO INDEX 


eBUx8 JCO_K_SIZE ¢ ALLOCATE SPACE FOR THE BLOCK 


oe wt ce 


JBCSILINAGeS? o BLKQ 1 


INPUT ADDRESS TO RAP SECTION 


JOCSQ_®eTAORS: .8LKO 1 


ACORESSES UPOATED 


JOCSd_upoanes: .8LKQ 1 


JOCSO_LUPOTISSSs .BLKG 1 TO STATUS FOR SECTION UPOATE 


oe 


ZERO IN BLOCK 


APSA FOR PARAMETERS FROM CREATE/MAP GLOBAL SECTION FOR THE PRINT QUEVE 


RETURN ADDRESS FROM MAP SECTION 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 3 of 8) 


Jacmary 33" CONTOESLLE? 
403-961 SECL AP ATICNS 

CIAQIESCE Q4C4 233 

e4cz 214 

= 6c as6cse 215 

6G «Cece 236 

0609 217 

e609 228 

64609 229 

04c9 229 

: 04689 22% 

866269306 0409 222 

0406 223 

C009€909 o46¢4 226 

: C603 86228 

60096369 4603 226 

escc 227 

e3e0ed6*e o6tC 229 

Q4E€0 229 

66890969 e6€06 239 

Q6ES 23% 

Csée 232 

OSES 233 

QSE6 274 

CE6GGE0G 64E4& 235 

O4E§ 235 

CHES 237 

€960G969 Q6€8 238 

Oe&C 239 

6468S 260 

8eec 241 

Geec 262 

Qeé€c 263 

89 96€C 266 

62 66 S® Q6€D 26§ 

06FQ 268 

GOOGCLFS 0684 2&7 


MAIN ROUTINE 3—=JUN“1982 22229240 VAX-11 4scre V¥O3~00 
24oAPRo19B2Z 17202556 _OBBOSE JOBCTL.«SROIIBECMAING MA 


SBCSI_LNNTASTS2 .8LKQ i 


JECSS_QuewerTss 8x TE 8 
JSESS SVMUATTS®S BYTE 8 


oo 306 


SEVITE 
8 FOLLOWING LOCATIONS ASSUMED TO 8E 
JOS LLL COUNTS 

e LONG 4 3 
JOP _L_PCAINOERS 

oL ONG 6 ° 
308 L_Oues 

elL3SNG = 6 : 
SCSLL_ Dave 

el ONG 9 3 
J68_L_86GE Ss 

oL ONG 6 ° 
sVUISTE 
JOB_LU SAVE NODE 8 

o LONG 8 H 
JOS_LLPQSSIBLES 

o LONG 6 


20 96 06 


SOCST_VBQENARE SS 
oSYTE 8 
oASCTIIT NLMBN 

SECST_ VEIXUNTT SS 

: oBUK8 5 


3 YIME FOR NEXT HOURLY AST 


FLAG FOR QUEUE UPDATING 
COUNT GF NG. SYMBIONTS IN WATTLE! 


AJACENT 


ARGURENT COUNT 

INOEX INTO PCB VECTOR 
HOUR OF OAY 

OAY OF WEEK 

ACCESS MGSE FOR AST 


SAVE ACCESS MQDE FOR LOGP 


PROTITYPS NAME FOR CONSTRUCTION OF MAILSOX RESPONCE SEVICE NAMES 


COUNT GOES HERE 

NAME WITH PL PTO PREVENT SUBSTIT! 
THE UNIT NUMBER GOES HERE 
SIGSEST UNET IS 65K 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 4 of 8) 


a3 
97 cc ae 


#F31° 


aece°cr 

oe 

33° 0C 38 
9123 

32 

1f OC 28 

7E CI0cgsce*rF 
SE 

1 

$2 ¢2 28 
38 
coodesce°cer 


=F 56° 


28 

2s 04 

a0 

33° 9C 88 

10¢7 

ck) 

92° 0¢ #438 

Q32F 

C3 94cErce 50 


CEag? 


~JOB_CONTROLLE® MAIN ROUTINE 
JOS_CONTROL INTTIALIZATION 


33 
96 
ES 


30 
es 


94 
8? 
19 
o« 
13 
3? 
34 


ie) 
i) 


33 
gs 


34 
€2 
39 


G4FSs 
O45 
0466S 
O6Fs 
0485 
CoFs 
OFS 
0485 
0485 
OSes 
0485 
OSES 
O4kS 
OOFS 
0485 
O4eNs 
OSFS 
O4F5 
04685 
06FS 
OoF5 
O6FSs 
0067 
Océ? 
0967 
0969 
ea6c 
006s 
0073 
ca7s 
cova 
CAT73 
0o79 
qned 
03s? 
0n83 
eces 
Qner 
0991 
0097 
oaga 
099C¢ 
qo9e 
O9at 
C9a6 
C9a7 
09489 
o0ac 
ooas 
C385 
C323 
63a? 
0983 
0983 
coes 
OoeF 
aos 


249 
250 
251 
2$2 
253 
236 
285 
234 
287 
258 
259 
266 
263 
262 
263 
264 
265 
266 
267 
2698 
269 
276 
271 
272 
273 
27% 
278 
276 
277 
278 
279 
220 
281 
282 
223 
284 


287 


297 
298 
299 
300 
301 
302 
303 
304 
305 


3—JUN—1982 22329540 
24-APR-1982 17502356 


THE LIST ARE 


“8R IF LOOKED at 


VAX-11 Macre Y03-00 Page & 
wDBBOSCJOSCTL.SRCIISCMAINMARSL C2) 


GROERED BY 


START COOE SEGMENT 


BR Tf CREATE OFTCHED CBaTCH) 


.J08 TS NOT REQUIRED 


TRY TO START ONE IF YES 

Ferce queue file update 

8R ITF THERE LS NO REQUIREMENT FOR 
A MATLSOX REAC 

ELSE ISSUE A READ REQUEST 

CHECK LF SYMOIONT SERVICE FLAG IS 
SET AND CLEAR IT,8R TF NO 

SAVE COUNT OF NG. IN LIST 

DECR. COUNT 

ALL OF THEM 

GET SYMBIONT THAT IS WAITING 

SR If NONE WAITING 

CDECR. NO. GF SYMSIONTS WATTING 

GO SERVICE SYMOIONT 

GO SEE TF ANOTNER : 

REMOVE COUNTER FROM STACK 

CMECK FOR AN OUTSTANOING NEED FOR 
A MATL BOX READ 

REAO YHE MATLSOX 

CHECK TF TIME TO CHECK LOGIN 
FLAGS FOR sass 

GO CHECK - 

Sr if not time to write the queue 


VERTFY ANO UPOATE THE QUEUE 


SLEEP 


eSB8TTL JOB_CONTROL INITIALIZATION 
toe 7 
3 FUNCTIONAL DESCRIPTIONS 
: JOS CONTROL SAIN LOOP IS ACTIVATED BY THE AST ROUTINE. 
3 ALL OF THE PGSSTBLE WORK LISTS ARE SCANNED TO OCETERMIN 
; WHAT FUNCTIONS ARE TO SE SCONE. 
$ THEIR IMPORTANCE ANO ARE ALWAYS CHECKED FROM THE TOP. 
2 CALLING SEQUENCES 
: NONE-ENTERED OITRECTLY FROM THE INITIALIZATION ROUTINE. 
H 
3 INPUT PARAMETERS? NONE 
3 CUTPUT PARARETERSS NONE 
3 COMPLETION CODES: NONE 
s STOE EFFECTS: NONE 
PURE _SECTION 3 
JSCSLOCPES H 
ssecc #38C_V_CREJOBREQe— . : 
JSCOLW_ FLAGS C221132208 : 
8S8u JOC SSTAOET 3 
CLR W*j8C38_ QUEWRT : 
2083 sscc 8JB8C_V_MBREADREQ»— : 
JICO_LWLFLAGSCRI19,30$ : 
sssv JBC SREACHS : 
30383 2scc @JBC _V_SYMINIREQs— 3 
SCO WL FLAGSCRI2I).408 : 
MOQVZSL JOCSS_SYMWALT»<“CSP) H 
3188 oec. CSP) : 
Siss 35% ; 
REMQUE BICO_C_SYMSWATTCRILIR2 ¢ 
Svs 35% H 
oecs JOCSO_STIMWATT 3 
ssaw JOCSSYMBSERY : 
BRE 31s : 
3533 aooL £46,SP : 
4083 secc @5SC_¥_MBREADREQ = : 
SCO WL FL AGSCR119,50$ 3 
ssaw JOCSREADNB : 
Sos: secc #58C_V_SRVCKLOGING= ; 
JCOL WL FLAGSCR1I13 5608 : 
ssaw SY4“SNOURLY 3 
s0%2: eass 80,W*59CSB8_ QUEWRT, 708 : 
ssa JECSVFYUPOQUE : 
Tess 3 
oENSSL LS! 
SHTIRER_LS 3 


- Jacueary 
¥Q3—C01 


e7 ac 


$2 


62 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 5 of 8) 


a3 96 
SFzF° 
asce°cr 
$0 

C3 4860 
$2 91 
3a 

£9 

es 5¢ 
cf 

eFTC 


zs 
30 
96 
36 


7? 


1c 
06 
02 
1# 
32 


eoee 
e3jee 
ocse 
ejre 
cocs 
oace 
09C1 
cocs 
e007 
os0c 
o41ce 
CIEL 
Q3E3 
OGEes 
o9€8 
Q9E3 
ages 
oes 
COEs 
goes 
O5es 
6oEeF 
QGF2 
6GFS 
O5Fs 
GIFC 
GOFE 
6268 
9109 
0100 
0103 
6200 
e760 
8360 
G1o0¢ 
O16 


30¢ 
3e? 
308 
309 
310 
321 
312 
323 
326 
315 
314 
317 
318 
219 
3298 
323 
322 
323 
326 
32$ 
326 
327 
329 
329 
336 
331 
332 
333 
336 
335 
336 
337 
338 
339 
349 
361 


“JI@_CONFOILLER MAIN ROUTINE 
JOU_CONT@OL INITIALIZATION 


1$s3 
2083 


3082 


4088 


SC&N WORK LISTS #OR SONETHING TO 56 


SGETTIM_S JCD LO_TIMECRI1) 


3—=JUN—-1982 22329240 VAX~-11 Macrae VYO3-00 
26-APQHO1982 17202356 _OBBOSC JOBCTL SRC IISCMAIN 


GEY THE TIME OF DAY 


gecc €58C_V_SRYTINQUE, JCO_W_FLAGSCRI13¢15% $ 8R TF NO TINE wO 


sssu SYMSSRVTIMER 
cues W* 36086 _QUEWRT 
Chet 86 


mQvag SCULG_ WORKLISTCRI2ZICROT RI 


RENQUE 9€R1)90,R2 


REMGVE TIME ENTRIES 

Force queuve file update 

SET INOEX FOR FIRST WORK LIST 
3 FIND AOGRESS OF QUEUE 

REMOVE ITEM FROM LIST 

SR IF REMOVED SOMETHING 

NOTHING IN QUEVE-A00 1 TO INCE 


CmPL RO, S*#<<KICO_G_WLEND-JCO_G_WGRKLISTS/8> $ CHECK AGAINST L 


svc 308 

TNCL a0 

SiLssu 208 

skw JOC SLOG 


WEVZUL JCM_O_TOSBO2€R2)0CR2) 
acute ®JCM_T_PSGOATA0CR2) 
aODL R2,€R2) 

CLee &CR2) 

mOVL JCD_A_ QUEBASECRI1),210 
83438 208 . 


928 10s 

Case RO <= 
JBCSSYNBSERV Y= 
JBCSSTMEMANL = 
JBC SPRCEDEL Y= 
JBCSSNOACC = 
JBCSSYSFUN C= 

> 

oGSA8L LSB 


e 
* 
e 
° 


Oe @6 66 66 Ge oO of 


06 ef of 


ee ef 


BR TF MORE TO CHECK 
WATT SOME “ORE 


ITEM REMGVED FROM WORK LIST-CALL ASSGCIATED ROUTINE 


SEY LENGTH OF TRANSFER 

FIND ENG OF VALIG DATA 

THAT POINTS AT ENG OF RETORG 
ZERG RETURNED ARGUMENT 

SET BASE AGORESS CF SYSTEM QUE 
SET SUBROUTINE RETURN FOR CASE 
LOGP FRON THE TOP 


SYMBIGNT SERVICE REQUIRED 
MESSAGE FOR SYMBIONT MANAGER 
PROCESS/TMAGE OELETE/PURGE MES 
MESSAGE FOR ACCOUNTING MANAGES 
SYSTEM FUNCTION 


$3? 


50 
$0 


50 


$@ 
$i 


$3 
$3 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 6 of 8) 


0900°CF 


0000°Cr 


9060 °CR 
O4CE°CE 


52 
63 


feco”’ 


ge 
si 


$2 
e062 


ec 
14 

83 
Fe 

83 
FQ 
FC 
03 


0s 


10 


ae 
a7 
ag 


7€ 
$6 
50 
0€ 
G2 
sf 


06 
10 
$8 
52 
ag 
50 
ag 
28 
as 
is 
146 


“JIB_CONTROLLER MAIN ROUTINE 
JOS_CONTROL INITIALIZATION 


ge 
12 


oF 
32 


ge 
96 
C21 


3¢€ 
13 
3 
30 
18 
E$ 
cfs 
19 
78 
aa 


Fg 


of 
Ba 
395 
cq 
o¢ 


as 
13 
19 


86 
0s 


010€ 
o10€ 
OL0€E 
o1o0f 
O16 
0108 
O10 
O10€ 
Q10€& 
e108 
8112 
0114 
02126 
0133 
02128 
O21A 
Giza 
otis 
6122 
0124 
0125 
Ci2za 
612¢ 
0139 
0133 
6135 
o233 
e238 
0130 
O42 
0146 
C146 
0148 
0148 
0148 
e1$2 
0156 
91359 
o1sc 
O1s€ 
0161 
Q163 
0165 
o170 
17s 
6178 
0179 
0179 


343 
344 
365 
346 
347 
348 
349 
350 
331 
3$2 
333 
334 
355 
3846 
3387 
353 
3$9 
360 
36% 
362 
363 
364 
36% 
366 
367 
368 
369 
376 
371 
372 
373 
376 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
384 
3e7 
3e8 
389 
390 


B= JUN@L982 222292540 
Zo—mAPR~19B2Z 17302556 


Vax-11 Macro Y03-00 Page 8 
0880 SC JOBCTLoSROJIBCHAING MARE €3) 


te 
3 SY*MBZONT ANO ACCOUNTING MANAGER OLSPATCHER 
3 THIS ROUTINE PERFORMS THE COMMON PROCESSING FOR THE SEND SERVICE 
3 PROCESSING AND RESPONCE. THIS INCLUDES ASSIGNING THE RESPONCE 
3 “WATLSOX, THEN SENDING THE RESPONCE WHEN PROCESSING IS DONE. 
eo 
oENABL LS3 
JS8CSSYSFUN? 3 SYSTEM FUNCTION MESSAGE 
PUSHAB W*ACHSSYSFUN 3 ENTRY TO ACCOUNTING MANAGER 
ORs 163 
JSECSSNOACCS 3 ACCOUNTING MANAGER REQUEST 
PUSHAB We ACNSSNDACC 3 ENTRY TS ACCOUNTING MANAGER 
SRS 108 3 
JOCSSYUEMANS : 3 SYMQIGNT MANAGER SEVICE 
PUSHAB WUOSTRSSYMERAN 3 @NTRY TO SYRBIONT MANAGER 
Cure W* J8CSB_QUEWRT 2 Perce queue file update 
108% aooL3 CICH_T_MSGOATA,RZ RO S$ POINT R29 AT MESSAGE OATA 
ASSUNE ACMSW_MAILSOX £0 SMRSW_MAYLBGX 
MOVZWL «= SRRSU_MAILSOXCRI)D 20 3 GET MATL SOX UNIT 
SEL 208 3 SR IF NONE WHERE 
wOVAW JCO_W_TMPCHANCRI1) 22 $ CHANNEL RETURN ADDRESS 
sssw JECSASSTGNNS 3 ASSIGN THE MAILSOX 
208s J$$ aCSP}e 3 EXTER PROPER HANMAGER 
BLS 20,368 3 SR IF STATUS {IS Gso00 
RNEGL ROR 3 INVERT ERROR COOE 
Ss_ss 408 3 BR IF ERROR SROM THE SYSTEM 
aswt 82-RL_RO > SET REAL ERROR MESSAGE CODE 
stsw OCSTSIM_FAC_SPin 3 SET FACILITY SPECIFIC Ano—- 
STSSK_ ERRORD. RO 3 -ANQ PERROR® SEVERITY INTO VALUE 
3083 INsv 4€J8CS_NORMALZ“STSSV_FAC_NODe~ § ANDO JOBCTL FACILITY COOE 
@STSSV_FAC_NOs#STSSS_FAC_NOeRO 3 INTO RETURN VALUE 
8 $3 "Ovas JICO_A_LSUPADORCRI19,23 3 SET POINTER TO RESPONCE NESSAGE SUFFER 
uGVvu RZ CRIIG 3 STORE MESSAGE TYPE 
nOveu ~< ICM _T_MSGOATA@49CR97D CRIS § STORE RESPONCE OATA 
mOVL ROeCRIDO 3 SET FINAL STaTus 
INSQUE -JCR_T_MSGOATACRI), = 3 RELEASE NESSAGE SUFFER TS 
@ICD_O_FREEBUFROSCRITD ¢ ENO OF THE FREE MESSAGE BUFFER LIST 
tstw JCD_W_TROCHANCRI1) 3 ANY RESPONCE MATLSOX? 
gear $Os 3 SR TF NO ~- DON’T SENO RESPONCE 
esas JSECSSNORESP $ SEMO RESPONCE TO REQUESTOR 
SORSSGN_S JCD w_THPCHANCRI1) 3 RELEASE THE CHANNEL 
CHECK ERROR DASSGN_MS $ WATCM FOR ERROR DEASSIGNING MAILBOX 
cLRw JCO_W_TMPCHANCRIL) 3 CLEAR CHANNEL NUMBER FOR NEXY TIME 
Soss ess 3 RETURN TO OCISPATCHER 
eOSASL LSB H 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 7 of 8) 


JSCRATIN +398 CONTPOLLE® WAIN RIUTINE 
#03-0F4 JO3_CONT2OL INITIALIZATION 
e179 = 392 
0179-392 ¢ 
i . C179 396 ¢ 
0179 «398 3 
g179 «396 8 
Q17> «96397 3 
C179 39% 
0179 «399: ENeUTSS 
0179 400 ; 
0179 401 3- 
O179 402 
0179 «403 JACSSNORESES: 
St $3) («16 88) C3 O1T9 408 suse3 
O17t «40S 8QI0_S 
OLTE 606 
Q17s = 407 
O17s 608 
O17E © 609 
03 0195 616 eSB 
4- 


3-JUN—-8982 22529245 VAX-12 Bacsre V¥O3—-00 
Z26oAPRMO19GZ 17502256 _OBBOSCIGSCTL oSRCIJBCMAIN, 


+ 
JECSSNORESP © SENG RESPONCE 


THIS SUBROUTINE TS CALLEG TO SENG & MESSAGE TH THE REQUESTING 
PROCESS VIA THE SUPPLIED MAILBOX. ‘ 


R3 TS ENO QF WESSAGE. IN JOC LINE SUFFER 


JCD A_LBUFAORCRIL)eR39R1 3 FIND LENGTH 

EEN © 904- 3 WRITE MATLSOX, EVENT FLAG IS 0 
CHAN © JCD_W_TMPCHANCRI2I9<3 CHANNEL NUMBER 

FUNC = SCIOS_WRITEVBLKITOSM_NOWDe— ¢ CPERATION ES wRITE= 
P1 © ZICD_A_LBUFADRCRI1)—.@ § BUFFER ADDRESS 

P2 © RL $ LENGTH 


26 


WRITING A SYMBIONT 


Listing 4-2 Main Loop Code (page 8 of 8 ) 


warn “JOS _CINTEOLLER MAIN ROUTINE 3—JUN"1982 22229240 VAX~-112 Macro Vv03-00 Page 10 
~0C3 R€a0 PaTLesx 26—APRH-L9BZ 17502556 _OBBOSC JOBCTLeSRCIIECMAINA MARS (}) 
Q19€ 422 eSSTTU REaS RATLBOX 
0198 413 Soe 
BS 0198 61% $3 FUNCTIONAL DESCRIPTIONS 

O19€ 415 3 
0198 $16 5 THIS ROUTINE IS CALLED TO ISSUE A READ ON 
ores 417 3 THE SYSTEM PERMANENT MAILBOX USED FOR 
C19E 418 ; COMMUNICTION YO THE JOS CONTROLLER. 
O19¢ 619 5 , 
0196 420 3 CALLING SEQUENCES 
019€ e211 3 
019s 422 3 sss JECSREAONS 
019f 423 3 : 
o19¢€ 426 5 INPUT PARAMETERSS 
o1sEe 425 3 : 
oi¢ge 425 3 COCATION ®JBCSQ_FPREESUFR]E CONTAINS A LIST 
o19¢€ 27 3 OF BUFFERS AVAILIASLE FOR REACING THE 
e198 “e28 3 MATLSOX. 
C198 429 ¢ 
O19 630 3 OUTPUT PARAMETERSS 
cise 431 : 
O19€ 432 : SUPFER IS ALLOCATED ANO READ IS rSsueod 
0296 433 : TF SUBFER ALLOCATION FAILS, FLAG IS SET 
OLg9e 636 3 SG THAT REAO CAN SE RE-ATTEMPTED AT SOME 
019s 435 3 LATER TIME. 
019€ &36 $ 
b19€ £37 3 COMPLETION CODES: NONE 
o19€ 638 $ ; ° 
0198 639 3 SIDE EFFECTS: NONE 
o19€ 640 $ 
o19¢ 441 ire 
O19 442 
iss 43 JECSREACNBS: i 3 READ JOB CONTROLLER°S MATL 80x 

52 Fe 498 oF a19€ 464 REMQUE SICO_G_FREEBUFRACRI1),R2 ¢ ALLOCATE A SUFFER FOR READ 

32 10 4 O%az2 445 avs acs 3 88 IF ALLOCATION FAILED 
Olas $46 SOIG_.S #0,— 3 EVENTFLAG IS 0 
a1as 447 JSCD_W_MBCHANCRILI»= 3 CHAWNEL IS MATLSQX 
ola 448 OTOS_REAOVELK.- 3 FUNCTION IS REAO 
0184 449 JSCM_O_TOSSCRZ3 v= 3 16 STATUS SLOCK IN PACKET 
Cras a56 W* JBCSNBASTL=— 3 ACORESS OF AST ROUTINE 
Oise 4$1 R2,- 3 AST PARM TS MESSAGE PACKET 
Ola 632 JCM_T_SSGOATACRZ3—— 3 SUFFER AREA OF PACKER 
OL1as 6$3 @ICM_LK_SIZEW“JCM_T_MSGDATA 3 SIZE CF MESSAGE OATA AREA 
ga $0 €s a1rce 654 stss 20,999 3 BR IF OPERATION & SUCCESS 

fc #8 42 Qe airce a$5 INSQUE CR2),9JCDO_O_FREESUFRO4CRI1) ¢ REALLOCATE THE SUFFER FOR LATER 
a1¢3 $4 SMOW_ERROR MAILSOX_2EA0 3 REPORT ERROR 
0105 457 9082 SETBIT JBC_V_MBREADREQ.- s SET FLAG TO INOICATE READ NEEDS 
o1cs 454 SCO_ WPL AGSC RIL) : TO BE Issued 

os 0109 659 998: Rss $ ALL OONE 

6108 460 


WRITING A SYMBIONT 


JOB CONTROLLER DATA BLOCK 


_SMBPID 



















_JOBSEQQ FLAGS 
LBUFSIZ LBUFCNT 
‘LBUFADR 


TMPDESC 


QUEBASE 
CURPDEV CURSYMB 





LINBUF (800 BYTES) 


TK-9781 


Figure 4-7 Job Controller Data Block 





_MBCHAN | TMPCH AN 


WRITING A SYMBIONT 


JBCSYSQUE.EXE ; 


FIRST FREE RECORD 


= SYSTEM 
— QUEUE HEADER 1 —| ) QUEUE 
| HEADER 


QUEUE HEADER N 


QUEUE DESCRIPTOR 1 


QUEUE DESCRIPTOR N 


Figure 4-8 File Format for JBCSYSQUE.EXE 












QUEUE 
DESCRIPTORS 





JOB HEADERS 
ANDO 

QUEUE RECORDS 
1024 ENTRIES 





TK-$180 


System Queue Header (SQH) 
Symbiont Manager Queue Desctiptors (SMQ) 
Symbiont Job Header (SJH) 


Symbiont Queue Record (SQR) 


WRITING A SYMBIONT 


JOB HEADER 
Ni 
JOB INFORMATION 


PRINT FILE 


DESCRIPTOR 





FILE INFORMATION 


PRINT FILE 


DESCRIPTOR 





JOB HEADER 
N2 
PRINT FILE 
DESCRIPTOR 
LINK TO 
OTHER JOBS 





Figure 4-9 Print Job Structure 


FORMS TYPE 

JOB COPIES 

PRIORITY | 
USER IDENTIFICATION 


PROCESS 1.D. 
| ACCOUNT 


CREATION (OR HOLD) TIME 
JOB NAME 
USER NAME 

BURST PAGE INDICATOR 


FILE 1.D. 

PAGE COUNT 

FILE COPIES 

FILE NAME 

DEVICE |.D. 

FLAG PAGE INDICATOR 
DOUBLE SPACE INDICATOR 
INHIBIT AUTO FORM FEE 


| DELETE AFTER PRINT 


TK9O179 


WRITING A SYMBIONT 


JBC MAILBOX AST 
ROUTINE: INITDONE 


DETERMINE PROCESS 
10 OF SYMBIONT 
INITIALIZING 


GET SYMBIONT CON- 


TROL TABLE ENTRY 
(SCT) FOR SYMBIONT, 
STORE MAILBOX UNIT 
NUMBER IN SCT, AND 
QUEUE SCT AT END 
OF SYMBSRV QUEUE 





SYMBIONT MANAGER 

ASSIGN CHANNEL 
TO SYBIONT’S 
MAILBOX 


SET STATE TO SCAN 
FOR NEXT JOB (SCT) 


MORE 
SYMBIONTS 
THAN DEVICES 


















MARK SYMBIONT FOR 
DELETION 


SEND MESSAGE TO 
SYMBIONT 
RETURN TO JOB CON- 
TROLLER 










TK9159 


Figure 4-18 Assign Job to Symbiont 


WRITING A SYMBIONT 





DETERMINE HIGHEST 
PRIORITY JOB FOR 
DEVICE WITH COM- 
PATIBLE CHARACTER- 
ISTICS 

















ESTABLISH LINKS 

BETWEEN SCT AND 

SYMBIONT JOB 
HEADER (SJH) 


INITIALIZE ACCOUN- © 
TING FIELDS IN SCT 


CALCULATE ADDRESS 
OF NEXT SQR ENTRY 
IN JOB 









" 
i 









[BUILD INITIATE 
OPERATION MESSAGE 

AND SEND TO SYM- 

BIONT 


RETURN FOR MORE. 
RANSACTIONS 
(SYMBIONT MANAGER) 


TK9159A4 





Figure 4-11 Assign Job to Symbiont 


WRITING A SYMBIONT 






‘ 
JOB PRINT 


CONTROLLER . SYMBIONT 


SYSSSYSTEM: SYSSSYSROOT: 
JBCSYSQUE.EXE [SYSMGR] ACCOUNTNG.DAT 





S 





TK9169 


Figure 4-12 Job Controller vs Symbionts 
® Job Controller 
- Accounting Manager ~ 
- Queue Manager 


- Symbiont Manager 


e Symbionts 
- Subprocess 
- Communication via mailboxes 
- Print symbionts 'formats' print jobs 


- Default print symbiont is SYSSSYSTEM: PRTSMB.EXE 


WRITING A SymBIoNT 


e Symbiont Creation 


- INITIALIZE/QUEUE , 
Creates the queue descriptor 
Inserts the queue options 


- START/QUEUE 
Increments count of print queues 
Creates a symbiont table entry 
Creates symbiont (SCREPRC) 


WRITING A SYMBIONT 





BSB 
SMBSSET 
SMBSINIT MBAST 
(SMBSSUBR) 

















SMBSFLAGPAGE 


ase] tase 
SMBSCHRGEN 


| SMBSMAIN - 
ase) fase 
SMBSGET 
Excertion (———— 
: 
DISPATCHER SMBSHANDLER 
RET 
ASTDEL SMBSMBAST SWAKE 
7 8SB 
SMBSSUBR ABOVE ROUTINES 
Aso 











TKA9172 


Figure 4-13 Symbiont Code Flow 
Initialization 
Main Routine Loop 
Condition Handler 


Flag page and character generator 


WRITING A SYMBIONT 


SETUP DESCRIPTORFOR~— | 
_ MAILBOX AST’s DISABLED 


CREATE FAB, RAB, AND 
NAM AND PARTIALLY 
INITIALIZE 





SET INTERNAL STATE TO IDLE 


 SASSIGN AND SCREMBX ~—~—~—S*«4L.—sSs CREATE SYMBIONT MAILBOX FOR INPUT 
FOR COMMUNICATION WITH AND ASSIGN JOB CONTROLLER 
JOB CONTROLLER MAILBOX FOR OUTPUT 


GET CHANNEL INFORMATION 
IN TEMPORARY BUFFER 


| 


SET MAILBOX AST 


| 


SEND “INITDONE” MESSAGE 
TO JOB CONTROLLER 


AST’s ENABLED 


ENTER MAIN ROUTINE 


TK9176 


Figure 4-14 Initialization Activity 


WRITING A SYMBIONT 


MBUNIT MSGTYPE 





Figure 4-15 INITDONE Message to Job Controller 


MBUNIT (Mailbox unit number from S$GETCHN service for 
symbiont mailbox) 
MSGTYPE (=8 = INITDONE) (MSGS_SMBINT) 
Note: 


Initialization activity (output symbiont) 
Executed once during life of symbiont 





WRITING A SYMBIONT 


Listing 4-3 Initialization Code (page 1 of 4) 


SMSINIT - SYMQLONT LMITTALIZAPION J>JUN°1982 1892855252 VAX-11 Meere V03-00 
403-009 DELL AC ATICNS LZ—-MAR—19B2 16205850 _OBROSCPRTSMB.SRCISMBINIT.MA 
e200 52 oSSTTL SECLARATIONS 
0000 $2 
- 9060 $3 PURE _ SECTION NAMESSMS_INITCOGE 
60008 £6 
e900 S$ $ 
€006 $4 3 INCLUDE FILESs 
e080 $7 3 
: 6005 $e@ ¢ CPRTSHS. SACISMEPRE. MAR 

60c0 59 
02¢9 6G 3 
0909 61 3 across 
0009 62 3 
0000 63 
6009 6& 3 
e909 4$ 3 EQUATES SYMBOLS: 
6309 64 8 
0909 6? $JSCHSGDEL 3JG8 CONTROLLER MESSAGES 
6306 68 
0063 67% 
0e0s 73 3: SwN STORAGE? 
00co 72 8 
0969 72 
0003 73 JOCKAILAGXS SNAME SOR JCB CONTROLLER MAILBOX 

00CC030K6° 6A00 Te eLONG 208-108 

o9e7c00s°’ C706 7S «LONG 8108 

se 6368 76 1082 eASCII 47 . 
eeesecses’ ¢ac9 77 oLONG SYSSC_JSQSCTLMS 
38 6960 TS eASCIL 27 

osee 79 2083 
aaos 89 


WRITING A SYMBIONT 


Listing 4-3 Initialization Code (page 2 of 4) 


- SY“MEIONT INITIALIZATION 3=JUN-1982 18255552 YVAX=-11 Maere V¥03-00 Page 3 
SY"QTONT INITIALIZATION ROUTINE LZ—MAR—1982 16205250 _OBBSOSCPRTISMB.SRCISMBINIT.MARS1 © (1) 
COcE 82. eSSTTL SYMBIONT INITIALIZATION ROUTINE 
oace 83 see 
eons 84 > FUNCTIONAL DESCRIPTION: 
900s as 3 
ace 84 3 THIS ROUTINE PERFORMS ALL ONE TIME FUNCTIONS FOR THE 
coor a7: PRINT SYMBTONT. 
ocor ae; 
090€ 89 3: CALLING SEQUENCE: 
208 90 3: 
00ce 91: MAIN ENTRY POINT OF SYNBIONT 
Coos 92; 
O40€ 93 3 INPUT PARAMETERS: 
oocs 94 3 
eOCE 95 3 NONE ‘ 
ecoEe 94 3 
090f 97 : IMPLICIT INPUTS: 
ooce 98 3 
O0c€ 99 3 none 
cooe 100; 
C30E 1061 3 OUTPUT PARAMETERS: 
en0f 102 ; 
eoce 1033 @2% CONTAINS THE ADDRESS OF THE IMPURE DATA BLOCK 
090€ «104 3 INTT CONE MESSAGE SENT TO SYMOIONT MANAGER 
ecoe 103 3 
020 106 3 IMPLICIT OUTPUTS: 
Geof 107 3 
sooe 109: CHANNEL ASSIGNED TO SYMQIONT MANAGER MATLBOX 
ooce 1093 MATLSOX CREATED FOR RECEIPT OF MANAGER MESSAGES 
oo0e 11¢ 3 
oOGS 113 ¢ COMPLETTON COOES: 
ooce 112 3 
coos 123 3 NONE 
OCOe 1163 
COCE 115 3 SIDE EFFECTS: 
coce 116? 
000 1173 THIS ROUTINE OTSPATCHES OITRECTLY TO THE SYMBIONT IOLE Looe 
COOS 129 3 . 
C0CS 119 to 
cooce 120 
900s 121 
cose 122 
Coos 123 Ses_STarts SSYMBIONT INITIAL ENTRY 
coe) eoce 8 86126 -waro 9 SENTRY MASK 
0319 125 
so 46oco2°ce®) 8 6be 6oolt 126 “OVAL W@SMBESHANOLER, CFP) SSET CONOITION HANOLER ADDRESS 
0ors «6 t27 
e025 1283 
0021S 129 : STSASLE ASTS UNTIL MESSAGE IS SENT 
0915 130: 
oo1s) = 122 
e015 132 sSETasT_s 40 sOTSABLE ASTS 
oor 133 
se 6od00°CE DE COLE 138 MOVAL «= WA SMSSG_OATA,R11 SSET AOCOR OF IMPURE DATA BLOCK 
e023.) «125 
6923 1343 
0923) 137 3 WUN@TIME INITIALIZATION OF OATA FIELDS 
0023 «138 3 


WRITING A SYMBIONT 


Listing 4-3 Initialization Code (page 3 of 4) 


SMSINIT - SYMBICNT INTTTALIZ&TION 3=JUN@1982 18255252 VAX-11 Maero VO3-00 
¥03-000 SYMEICNT INITIALIZATION RGUTINE L2—MAR~198Z 16205250 _OBBOLCPRTSMS.SRCISMBINIT.MA 
6023 139 . 
_ 09 a8 0079 8 80 0923 160 “ovw @SIMSK_STZE,SO_W_MSREAOLENCRIL) SSET INITIAL MB READ LENGTH 
= 6027 9 14t 
27 6© 0200 8F 80 6529 162 sovw @SMBSK TSUPSTZoSO_W_TBUFCNTCRIL) SSET LENGTH OF TERP SUFFER 
29 88 0206 SF «680 OG2F a3 novw @SMOSK_TSUFSTZeSO_W_TSUFSIZCRI1) SSEY LENGTH OF TEMP SUFFER 
25 a2 O1f2 C8 OE 0035 166 MOVAL SO_T_TSUFCR11),SO_A_TBUFAORCRIL) 3SET ADORESS OF TEMP BUFFE 
oc3e 8614S 
$6 OOF] CB CE 0039 166 MOVAL  SD_G_FABCRI19 5&6 ZGET ADDRESS OF FAS 
S77 0168 CB CE 9040 167 MOVAL $D_G_RABCRIL) R27 SGET AODRESS Of RAs 
$@ @18C CB DE «(006S)— 148 -MOVAL $O_G_NAMCR11) 28 SGET ADORESS OF NAN BLE 
0048 169 
0068 159 ASSURE FASS8_8T00i EO FASSS_BLN 
56 $003 SF 80 0664 151 "OVW CFROSC_BIDSCEASSC_SLNZS>,FASSO_BIDCR6) SCREATE FAS 
ogee 182 ASSUME RASSB_STD01 £Q RA8SE_BLN 
4% 46601 6F 80 O06f 153 “Ove @RABSC_BIDSCRAGSC_SLNDS>,RABSB_SIOCRT) CREATE RAB 
0054 156 ASSUME WANSB_BIOC1 EQ NAMNSO_8LN 
68 6002 8F 80 0056 195 nOvu QWAMSC_BIDOCNAMSC_SLN2S>,NANSE_BIOCRS) SCREATE NAM BLE 
0089 185 
28 45 $$ 00 oC0S9 187 MOVE 88, FASSL_KAHCRE) SSET NAME BLOCK ADORESS IN FAB 
3¢ a?) 0S $6—S—C«isCiSDCS8 weve RE RABSL_FABCRTD 3SET FAS ADDRESS IN RAB 
20 a7 «©0200 BF) = BO 006k 189 nOvw OSMGSK_LSUFSTZ,RABSW_USZCR7) 3SET RECORO BUFFER SIZE 
0067 160 SETSIT RABSV_RAR,RABSL_ROPCRT) SUSE READ<ANEAD 
o06c) = 161 
oocs C3 «0G KECé162 MOVZBL SOTOS_WARGS,SO_G_OLOSLKCRI1) 3SET QIO SLOCK LENGTH 
0900 £8 c0co°sF 863C «(OOTk)~— 163 MOVZWL #TOS_WRITELBLK, SO_G_QIOBLK*OQLOS_FUNCC R12) 3SET 4G FUNCTIO 
02 48 84 C978 166 cLew SD_8_ERR_PLAGSCRI1) CLEAR BOTH SETS OF FLAGS 
0632 CS OLF2 Ce OF COTS 165 MOVAL  SO_T_LBUFCRI1),SO_O_SUPPNTCRIL) 3 SET FIRST ADDRESS 
0635 CB 0632 CH Of 0082 166 MOVAL SD_T_LSUFILCR11),SD_O_SUPPNT*4C(R11) 3 SET SECOND ADORESS 
coed) 86187 
0089 386168 ASSUME STATES_IOLE £Q 0 
008? 86169 
66 18) «696 «60089 )=— 170 cies SO_B_STATECRii) tSET INITIAL STATE TO IDLE 
cose 6171 
o9sc 6172: 
GO8C 173 ¢ ASSIGN THE SYMGIONT MANAGERS MAILBOX 
eesc 8=—1746 3 
oeec 8617S 
eosc 6178 SaSSIGN_S JBCHATLEOXe= SASSIGN CHANNEL TO THE JOB CONTROL 
ooec 86177 SO_W_J8CCHANCRI1) SMATLBOX“CHANNEL NUMBER STORED KES 
11 $6 €9 Onec | «IT8 SLSS 80,108 288 IF NO ERROR 
ose 86179 SIGNAL JBCS_MGASGN, 20,20 SSIGNAL THE ERROR 
33. «12 COME 8 180 Bee 203 sEXIT 
0080 86182 
oso) 86182: 
OC8O 183 3 CREATE SYMSIONT°S NATLSOX 
goe6 «= 184 
e080 ° 185 
9085 186 1082 
0986 86187 SCRENBX_S - SCREATE A MAIL BOX FOR COMMANDS 
0086 86-1188 PROMSK © S“XOFFOF,~= 3 PROTECTION 
00so) 6189 MAXMSG © SSIMSK_STZE,—= sMAXIMUM MESSAGE STZE 
0989 190 SUPOUG = #28SIMSK_STZEs=3 2 MESSAGES MAX 
0080 86191 CHAN «© SO_W_MBCHANCR11) 3 CHANNEL OF CREATED MAILBOX GO 
1$ SO 0668 «Coot = 86192 BLES 20,308 388 IF NO ERROR 
sons 86193 SIGNAL JOCS_SYMSCRE, 90,20 SSIGNAL THE ERROR 
00E3 196 2082 SEXIT_S SFORCE IMAGE EXIT 
Ooec 8195 
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Listing 4-3 Initialization Code (page 4 of 4) 


FEE 


seca’ 

Cire cs 

39 £3) $0 
sene? 


FES3° 


COES 
cwvEec 
o9ec 
QdEC 
ocec 
CIEL 
ones 
Q3F2 
COF2 
Cor? 
oar? 
CaF? 
OOF2 
OOFS 
O9Fa 
oars 
C161 
e102 
C101 
GroL 
ore! 
61G1 
orda 
Giga 
e109 
oie? 


196 
197 
198 
199 
200 
2¢1 
202 
203 
206 
205 
204 
207 
208 


209 


239 
221 
222 
213 
216 
235 
214 
217 
238 


220 
22% 


- SYMOTCNY INTTIALTZATION 
SY“SLONT INITIALIZATION ROUTINE 


3082 


“Ovat 


#S8 


assw 
“Ovu 
“ovw 
8ssw 
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SET MATLSOX CHANNEL INFO 


SO_W_MOCHANCRI19.26 
SMBSGETCHAN 


SET UNSOLICITED. AST FOR MY MATLBOX 


SmasSETMOAST 
SO_T_TSUF*IZ(R11) 920 
RO. SO_W_MBUNTTCRI1) 
SMSSINIT_OOGNE 


EmMAGLE ASTS NOW 


SSETAST_S #1 
aaw SMESMAIN 
2ENO Sma_STart 


sS€T aAOOR CF CHANNEL 
SGET CHANNEL INFO 


sS€T THE MATLBOX AST 

sSET MAILBOX UNITY NUMBER FOR INIT SG 
SSAVE UNIT FOR SOEL MAX 

SSENG MGR THE INIT DONE MESSAGE 


SENABLE ASTS 


sGOTO RAIN LOOP 


WRITING A SYMBIONT 


READ MAILBOX 


CASE TO: 
INIT, ABORT 
SUSPEND, REQUEUE 

RESUME, EXIT 




















e 


REENABLE MAILBOX AST 






TK39176 


Figure 4-16 Mailbox AST Code Flow 


Init Abort/Requeue 


Assigns $Cancel I/0 


Device 


Get. 
Channel 
Info 


-SOPEN 
SCONNECT 


Set wake bit 
SWAKE 


Suspend 


Set state 
suspend 


Read MB 


Resume Exit 
SExit_s 

Restore 

state 
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Listing 4-4 Mailbox Ast (page 1 of 8) 


- SYM@TCNT MATLESX AST ROUTINE 
QECLARATIANS 


0905 
6066 
69095 
00¢c4 
0000 
coe? 
0009 
¢9c4 
0203 
69¢ca0 
ooco 
0006 
c366 
6909 
0609 
6006 
6oc9 
co639 
coco 
6909 
0000 
eoos 
6006 
eoceo 


79 
Tt 
v2 
73 
T4 
7$ 
76 
77 


J~JUN“1982 18257233 VAX=11 Macre V03-00 Page 
LZ-MAR=“1982 16506207 _OBSOSCPRTSHB.SRCISMBMBAST. MAR? 1 


eSSTTL OECLARATIONS 


INCLUOS FILES: 


CPORTSME.SRCISMEPRE MAR 


@acRrQs: 


Squares SYs6OLSs 


spcaoces 3 PROCESS CONTROL BLOCK OCFFSETS 
SISC™SGOSFE 3 JOB CONTROLLER MESSAGES 
SSHROEF 3 SHARED MESSAGES 


OWN STORAGE? 


4-43 


3 
2) 


4SMSAST 
13-000 


¢905°CF 
s. Ge 48 


$a 41 
Q3 

3298 
30C4 

63 §6 


eRe? 
Qe £2) SA 
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Listing 4-4 Mailbox Ast (page 2 of 8) 


© SYMRTONT RATLEOX AST ROUTINE 


MATLSCX AST COOE 


30 
99 
a6 


6009 
60006 
0809 
0000 
6600 
6009 
0000 
6909 
9969 
6960 
6300 
0909 
09068 
6ee0 
6009 
6600 
6000 
6066 
0068 
e600 
6ac¢ 
0966 
09006 
0066 
6066 
0608 
0960 
¢369 
a9ec 
6009 
6ocs6 
6000 
6009 
oa6o 


6909 . 


66608 
e060 
co69 
6969 
63909 
69309 
g002 
0907 
0908 
oocs 
caof 
0919 
0623 
0325 
0017 


coi? 


6919 
€319 
0979 
691c 
e928 
0921 


9$ 

96 

97 

98 

99 
106 
101 
192 
103 
106 
105 
106 
167 
108 
109 
120 
122 
122 
133 
126 
135 
1145 
117 
138 
119 
129 
121 
122 
123 
124 
125 
126 
127 
128 
129 
136 
13% 
132 
122 


2o 


136 


135. 


136 
137 
138 
139 
169 
141 
162 
143 
166 
14¢ 
144 
167 
168 
143 
180 
182 


OO SO C0 O88 06 oF 8 66 ee 06 we Se ce oe 


20 40 06 6 60 70 O86 00 00 06 08 06 of ao 06 Se ce ee 


s 


1 


oSOYTL 
ee 
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MATLBOX AST CODE 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCES 


CALLED AT AST LEVEL BREN SGRETHING TS PUT IN THE MATLBOX 


INPUT PARAMETERSS 


NONE 


IMPLICIT INPUTS: 


mESSacE 


IN THE MATLSGX 


GUTPUT PARAMETERS 


NONE 


TMPL ICTY CutTPuTss 


SEE EACK MSG HANOLER 


COMPLETION COOESs 


STOE EFFECTSS 


“MERZ RI RS AS oRIRLDE RAILS SENTRY MASK 


NONE 
SURE_SECTION 
mesngaSTs? 
.waoRO 
OVAL «= W°SMESG_OATA,R1IL 
MOVZSL SD_S_STATECR12),210 
EAQ_*S_AaGAINne 
cues @STATES_ASNOEY, R210 
$NEéQ 168 
ssw ASNOEV 
os: asaw REAG_¥8_NOW 
BLES RO»CHK_MOREAO 


REWEWABL SE AST 


ssaw 
wove 
eet 


SMSSSETMOAST 
R10, SO_S8S_STATECRII) 


sSET IMPURE SATA SLOCK 
sGET CURRENT STATE 


sTRYING TO ASSIGN THE PRINTER 
78R TF KG 

sTRY If AGAIN 

SREAG THE MATLBOX 

282 TF OX 


SREENABLE THE AST 
SSET CURRENT STATE 
sEXIT THE ast 


€7 a 


cs 


sc 


WRITING A SYMBIONT 


Listing 4-4 Mailbox Ast (page 3 of 8) 


- SYVEIONT MOTLENX AST @HUTINE 
“aTLecx ast CooEe 


ge 


2% 


12 


Oc2t 
e021 
eo22 
eq2t 
e021 
69212 
0926 
C026 
C026 
0926 
00246 
0024 
0024 
0926 
6925 
09449 
0042 
0962 
0962 
9049 
9968 


1$2 
133 
186 
18s 
136 
1$7 
158 
1$9 
169 
161 
162 
163 
164 
165 
164 
167 
168 
169 
270 
2171 
172 


CaS TO CORRECT MESSAGE HANOLER 


CHK_Meeeac: 
PYUSHAB READ _MS_AGAIN 
Case 
<CINTTIe— 
CASORTI@— 
CSUS PEND» 
CRESUMEDS,— 
CEXITS c= 
CASORTS »@—~ 
Po LIMITSOnSGS_ INTOPR 
STSNAL «JBCS_INVESG 
ars REAO_MS_AGAIN « 
UNEXPECTS 
SIGNAL J8CS_UNESYMNSG 
ars REA0_NS_AGAIN 


3J—JUN~1982 18257233 
L2—-MAR—L982 16206:07 


VAX-11 Macrae V03—-00 
—OB8SOSE PRIESMB.SRCISMBEMBAST.MARS1 


Page 5 
€1) 


3 SET NORMAL RETURN ADDRESS 


SO_T_MSGOATAOSINSW_MSGTYPCRIL)o<= SOISPATCH TO WESSAGE MANOLER 


SINITIATE PRINT 

sASORT PRINT 

SSUSPEND PRINTING 
SRESUME PRINTING 
sSYMSIONT EXIT 
SSYMSIONT REQUEING FILE 
SSTART AT FIRST MESSAGE 
SSIGNAL THE ERROR 

eREAD MATLSOX AGAIN 


SUNEXPECTED SYMBIONT MANAGER MSG 
SSIGNAL THE ERROR 
SREAD MATLBOX AGAIN 


BMSAST 
3-000 


a3 


$a 


$4 


. $8 
$6 $s 


$4 
$a ecoa 
33 
4$ 


61528 
3246 C3 


16 ¢ 


0145 


&& A3 


Gs 
6F 
Sa 
6s 
06 
£s 
$9 
as 
$0 


63 
$8 
aF 
16 


$6 
iF 


ae 
é3 
36 


= 
G2 


2 


31 
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Listing 4-4 Mailbox Ast (page 4 of 8) 


= SYSGLONT MAILBOX AST POUTINE 


MESSAGE HANCLER - RESUME 


a1 
$1 
12 
£8 
11 
es 
23 
98 


Es 


os 


94 
ib} 


95 


004¢ 
ehae 
OG4k 
C948 
GOsF 
6968 
0H4F 
oGaF 
094€ 
0046 
oas2 
6354 
00S5 
o0ss 
0652 
6650 
C069 
89646 
0665 
6964 
6084 
0964 


0965 


0064 
8969 
9362 
Ga79 
C972 
C372 
e979 
0680 
o0e2 
09e2 
Gaas 
oGer 
eaes 
QgRE 
8693 
Cage 
CIat 
0045 
6086 
cosas 
oces 
ooes 
o9es 
608s 
coe9 
0089 
eoaese 
09c? 
osce 
gocsé 
o9ce 
oocs 


176 
178 
174 
177 
278 
t79 
188 
182 
182 
183 
186 
185 
184 
187 
188 
189 
199 
1$1 
192 
19? 
194 
195 
196 
$7 
198 
199 
206 
261 
262 
203 
206 
205 
205 
207 
208 
209 
220 
22% 
222 
223 


ee 68 of 


RESUMES 


1083 


L283 


216— 


215 
226 
217 
223 
219 
229 
2212 
222 
223 
2246 
225 
226 
227 
2283 


1$s3s 


208s 


3083 


eo SSTTL 


o ENABLE 


cmee 
SEou 
TsT8 
SEQL 
Cues 
SRrEG 
MOVZSL 
Rov 
SéaQu 


Cues 
SEC 
crev 
3nKEQ 


SREVING 
BL8S 
SRE 


TSTL 
SEQL 
sQvc3 


eavS 
SEINO 
BL3S 
SETSIT 
STGMAL 
@s8 


ASSUME 


CLee 
ac083 
sererrt 
esa 
eOSAGL 


eOSA8L 
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MESSAGE MHANOLER = RESUME 


RESUME PRINTING 


L$8 


. 


#@STATES_EGF_CLOS R16 SARE WE OGNE 


308 sBR LF YES — IGNORE IT 

R10 SARE WE TOLE 

308% sar IF YES - LENORE IT 

OSTATES SUSPEND. R10 SARE WE SUSPENDED 

UNEXPECT s8R TF NG 

RG,R1G SRESTORE PREVIOUS STATE 

SOT MSGOATAOSINSW_RESTERIL3—eRO SGEY LNOICATOR 

308 SBR TF NGO INOICATGR - JUST RESUME 


SACKWARO SPACE FILE 


OSTATES_PLAGPAGE,R10 = SPRINTING FLAG PAGE 

308 38R TF YES = GEY OUT 
#*x8000.26 32S IT TOP OF FILE 

103 388 IF NO 

$0_G_RABCR13) SREWIND THE FILE 

20,208 38R IF OK 

123 

$O_G_TOP_FORMSCR11) 300 WE HAVE A TOP GF FORMS YET 


7 38 TF NO = REWIND 
€65S0_Q_TOP_fORMSCR119 = 

SO_G_RAG@*@ABSW_REACRIL) SSET RFA OF LAST FORM FEED 
ORAGSC_RER,SD_G_RAGCRABSS_RACCRIL) SSET REA RODE 
@aseS0_G_RASCRI1) sPINO THE FORM FEED RECORD 
RG1S8 288 IF sFINO OK 
$O_V_GETERR,SH_8_E@R_FLAGSCRI1) SET GEY ERROR 
SHRS_ROSERRORIC4 3169080920 SSIGNAL THE ERROR 


® 


RAasC_SEQ £0 0 


SO_G_RAB*RASS8_RACCRIL) SSET ACCESS SACK TO SEQUENTIAL 
€1, SO_S_*AXLTPCRI1)¢SO_S_LTPCNTCRI1) SFORCE FORM FEED IF NE 
SD_V_FFREG,SO_S_GEN_FLAGSCR11) 3 SET FE REQUIRED BIT 


° 


Lss8 ; 


ss 


58 


3€ 


$0 


$a os 
16 
5a 
12 
$3 Sa 
$3 06 
0000°SF 
Qs 
€f43 CF 
6000°SF 
$2 v¢é 
9 9€ 
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Listing 4-4 Mailbox Ast (page 5 of 8) 


- SY°@lCNT MATLEQX AST PIUTINE 
MESSAGE “ANOLER = PESUME 


3¢ 


79 
6s 


e3cs 
esc 
oocs 
Cqce 
eqc?7 
0ocs 
coc: 
encs 
ooe4 
ene} 
oocs 
coca 
0420* 


“0389 


ooFfd 
aces 
09€9 
C2689 
e989 
09€9 
C383 
03€9 
#0e0 
oo£9 
Cogs 
CIES 
cogs 
C88 
cogs 
COES 
098 
cogs 
OoeS 
0205 
o1oe 


239 
221 
232 
233 
234 
235 
236 
237 
228 


237. 


240 
2461 
242 
263 
246 
245 
246 
2467 
268 
249 
2506 
2s2 
252 
2$3 
256 
255 
256 
257 
258 
239 
265 
262 
262 
263 
264 


oENASL 


SUSPENDS 
cues 
seg 
TsTvs 
BECL 
“OVZSL 
MQVZEL 
MOVZWE 
ssee8 

CwKmMSi: “OVAB 

2083 °$38 


eBSASL 


ee ee 08 cf we 


INPUT - AT READ_"B WITH 


J JUN~O1982 19257533 
12—MAR-19B2 16506207 


Lss 


AS TATES_EOF_CLOS R10 
208 

R10 

208 

R10,R9 

@STATES_ SUSPEND, R20 
OTOS _MEADVELK, 20 
READ _MS 
CHR_MBREAD, CSP) 


L$8 


LOCAL SUSPOUTINE TO 8646 THE MATL EGE 


¥VAX—-11 Macro V03=-00 
awOSBOSCPRTSMB.SRCISMBMBAST. WARSI 


Page ? 
¢1) 


SARE WE DONE 

$8R IF VES = IGNORE IT 

sARE WE IDOLE 

s8R IF VES = IGNORE IT 

SSAVE CURRENT STATE FOR RESUME 
sSET SUSPEND STATE 

sSE€7 FUNCTION COOE 

sREAD THE “MATLSOX 

SET NEW RETURN ADDRESS 


RQ = FUNCTION CODE 


oENS8L LSS . 

2£A0_MS_NOW? ¢ ENTER FOR READ-NOW 
MCVZWL SIOS_REAOVSLAKITOSM_NOW.RO 3 SET FUNCTION OF REAO WITH NO WAIT 

2EAD_MSe 
MOVAQ = CSP), BL CREATE SPACE FOR TOSB 
sQTOw_S - READ THE MATLSOX 
EFNRESMOSK_NEEENS— SEVENT FLAG 
CHANSSO_W_MBCHANCRI2) = SMAILBOX CHANNEL 
FUNC SRO ,— sFuNCTION 
TOSBBCRID»= sIv0 STATUS BLOCK 
PLSSO_T_mSGOATACRIlL) »= TOATAR BUPFER ADDRESS 
P2=S0_W_MBREAOLENCRI1) TREAD SIZE 

. mava CSP)e,20 2GET I7O STATUS 

10%: rs® 
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Listing 4-4 Mailbox Ast (page 6 of 8) 


MOPSAST © SYPELONT PAILBOX AST ROUTINE 3=JUNL98Z 18257233 VAX-11 Macre VO3~00 Pi 
"03-000 SESS8GE MANOLER =~ INITIATE PRINT LZ—MAR—1982Z 16506307 _OBBOSTC PRISMS. SRCISMEMBAST.MA 
6109 266 oSSTTL MESSAGE MANGLER - INITIAVE PRINT 
0109 267 \ 
6109 268 3 
a 8109 269 3 INETIATE PRINT 
0169 279 3 
0109 272 
6269 272 oENABL LSB 
SEFREFEE FOOSOF8O 0109 273 S$ eL ONG €-18500000003.—-1 $ WAIT FIVE SECANOS 
O1it 276 
PSS 275 INrTs 
O421 276 . 
o231 277 ASSUME STATES_IOLE £9 96 
o1it 278 
$a 9$ 0211 279 Tste R16 SARE WE TOLE 
93 13) 0433 280 Ssequ  ° 2108 sR TF YES 
FEZA 3% 0215 281 Srv UNEX FECT SUNEXPECTED MESSAGE 
0128 282 1688 . 
$3 Q2 9a 8118 283 ROVZBSL SSTATES_ASNOEY,210 SSET ASSIGNING DEVICE STATE 
60 83 04 86 0228 286 aSNOEVS FOYE S6,SO_W_MOREZOLENCRIL) FSET READ LENGTH TO MININUR 
$0 oceF C48 9& OLiF 28S 128: NOVAS SO_T MSGOATACSIMST_PRINAMCRIL RO SPOINT AT OEVICE NAME 
$2 Goce Ca 3€ 0126 286 MOVAY SOG GIQSLK*QTOS CHANCRIL) »R2 SAOORESS OF WORD TO STORE CHAN 
FEde° 30 «(0229 287 8sév SMOSASSTGHOEV SASSIGN THE PRINTER 
26 $0 es 012¢ 288 SL8S RGOoLTS s8R TF ALL TS WELL 
i 16 «O142F 289 $s86 READ _MB_NOY sS€8 IF THERE IS ANY MATL 
’6 39 €$ 023% .296 Buss RG oCHRMBL s8R TF YES-CHECK OUT THE MESSAGE 
OL36 29t SSETINR_S ESMBSEK_TIMREFN. SS sWAIT FOR A LITTLE WHILE 
Q16e 292 SUATTER S ESNOSK_TIMEFN 
Cl] a © a ol SB SRO 123 TRY TO ASSIGN THE PRINTER 
SA 00S OSE =. 29K 1788 TNCL R20 3 CHANGE STATE TO OPEN 
$8 ooce Ca NE O1S2 295 MOVAL SD_G_GIOSLK*OLTOS CHANCRI2Z3—RG SGET ADGR OF CHANNEL 
FEAT? 30 0156 296 assy SMOSGETCHARN SGET LP CHANNEL INFO 
6& AG aiFs Ce 33 «(6359 297 cyfyws SOT .T8UP*6CR12> sSO_S_PAGEWIDTHCRIL) SSET PAGE WIDTH 
9 a8 SiF3 CB 23 «OLS 298 AGVS SOT _TSUPOLICRIT)»SO_S_PAGELENCRI1) SSET PAGE LENGTH 
83 12 «40265 299 BuEQ 358 3 OR LTE MOT ZERO 
49 68 8696 6167 369 TNCE S0_8 PAGEL ENCRI1) $ MAKE EQuAL TO 2 
G1*G C3 86 83 0264 302% 3385 Suse3 4£4S8_ T_TBUPOLICRILI 
46 a8 OL6F 362 SOLB_MAXLTPCRIL) SSET MAX LINES THIS PACE 
32 48 66 O72 303 CURL SOLLIGETCNTCRI2) SINET GET CoUNyY 
3f 48 O& 61746 3068 CLR SOLLIGIOCNTCRI1D sINIT QrG CouNT 
&§ as 04 0277 305 CURL SOL. LINECNTCRI29 sINTT LINE COUNT 
CITA 306 
O17 307 ASSUME NAMSWLFID EQ NANST_OVICL6 
017A 6308 ASSUME NAMSW_OID EQ NAMSW_FIDSS 
OL7aA =. 389 
6F AS 1¢ 23 «0178 310 “ovc3 @160660SD_T_MSGOATASSIMST _VOLNAMCRII}5—- SSET OEVICE, = 
6289 C8 O17E «321 SO_LG_NAMOMAMST_OVICRI2) SFILE AMO OTRECTORY IB°S 
0181 312 SGETTIB_S SOLQ_LPTIMECRIL) SGET TIME FILE WAS PRINTED 
609% CB 9&4 6188 323 MOVZBL SDUT_MSGOATASSIMST_FILNAMCRIL)s— SCREATE FILENAME OESC 
Oe2a CB o18F 316 SOLQ_FILEMAMEC R129 
e9a0 C8 9€ 8192 325 movas SOUT MSGDATASCSIMST _FILNAMOLCRILD = 
Gs2E CH 0196 324 SOLGLFILENAMES4C R119 
Gorse 360-0199 317 asév SmasSETurc 3 SET UIC TO REQUESTORS 
ocFC CS G1000005 BF 09 6019¢ 328 MOVE CE ABSM_NAM,SO_G_FPABCFASSL FOPCRI1) SOPEN BY FILE TO 
6145 319 SCALSO CLEAR OTHER OPTTO? 
0148s 320 SOPEN SOLG_FABCR1I1) SaPEN THE FILE 
G3 56 €s 06180 322% Suss 80,203 s8R ITF OK 


6183 322 1888 


Sa 


09 


0250 
0709 


O17s C8 O1EC 
3137 CS 
Or174 


48 
0117 C38 


GS 9116 C3 


56 3? 


30 #3 


590 00000000 °9F 


sosa Co 


WRITING A SYMBIONT 


Listing 4-4 Mailbox Ast (page 7 of 8) 


= SYMGTONT MATLEOX AST ROUTINE 
MESSAGE HANOLER 


0S 9k 
29,0 ak 
SoS 
ce 79 
ce 
Tt a © | 
cs og 
02 91 
06 «12 
cs 06 
300-10 
ass 
03 «92 
oc 12 
oz «£0 
0s 
c2010906 
aes og 
Qe 12 
ae o9e 
as 
0200 
oo 
6c 00 
$0 04 
64 


6183 
are? 
0188 
orec 
o1sc 
orc? 
Orca 
o1ca 
o1ca 
OLce 
102 
6203 
6163 
o1oa 
O10 
OLél 
O1ES 
OLE? 
O1EA 
o1g6 
OLFt 
OLF?T 
61FO 
0201 
o20c 
0260 
6200 
6266 
0200 
6260 
92060 
0200 
e200 
0209 
0222 
O2i1 
O22 
821¢ 
0217 
0217 
0218 
0227 
0228 
0228 
0223 
0228 
6228 
02248 
0232 
0234 
02383 
0233 
0239 


323 
324 
325 
324 
327 


“328 


329 
330 
321 
332 
333 
334 
335 
336 
337 
338 
339 
346 
341 
362 
343 
346 
3465 
346 
347 
348 
34? 
350 
351 
3$2 
3$3 
394 
355 
354 
387 
358 
3$9 
360 
361 
362 
363 
366 
365 
364 
367 
368 
369 
376 
371 
372 
373 
376 
37$ 


"put 00 oe oo 


- INITIATE PRINT 


sersrT 

“OVZSL 

29 
208s 


SCONNECT 


sLss 
aSsume€ 
aSSuME 
ROVO 


ars 
2533 
“Ovas 
cues 
8GEQu 
CLRE 
3082 8$86 
CLRe 
cups 
nec 
ses 
CirgsTt 
WAKUPs SETSIT 
SUAKE_S 
ess 


e0Sast 


? 


JEFUICS LONG 


SmaSSETUICSs 
mOVAL 
SRS 

SMSSRSTUICS: 
novas 


10% SCHR RNL_ 


Rs$8 


Ke@nac access 


oes: 2 ¥ORO 
“ove 
mOVE 
INCL 
eer 


oDSABL 


J<JUN-1982 18257233 VAX—112 Macre V03-00 page 9 
LZ—MAR=1982 16206207 _DBSOSCPRTSMB.SRCISMBMBAST.NARS1 (1) 


SO_V_GPENERR,SDO_S_ERR_FLAGSCRII)D SSET OPEN ERROR 
ESTATES ECF_CLOS, R10 sS€T EOF_CLOSE STATE 
308 sGeT OUT 


RABBSO_C_RABCRILISCONNECT THE RAB 
RO258 38a TF OK 
FASSLLUSTV EQ FABSL_STS04 
RABSLLSTV £0 RABSL_STSO4 
SO_G_RABORABSL_STSCRILI9— FSAVE ERROR STATUS VALUES 
SO_G_FASOFABSL _STSCRI19 ; 
18s sQuiTt 


SO_T_SQSUPCR11)-SO_G_RABORABSL_RHBCRIL) SSET HEACER BUF ADOR 
C2, SO_G_PABCFASSB_LFSZCRI1) SIS THE FSZ OK 


308 288 IF YES 

SO_G_RABORASSL_RMBCRI1) SOGN°T GET THE RECORD HEADER 

SASSRSTUIC 3 RESTORE UIC TO OEFAULT 
$0_Q_TOP_FORMSCRI2) 3SWOW NO TOP OF FORM YET FOR RESUME 

PAB SC_VEC.SD_G_FABSFASSS_RENCRIL) SSEQUENCE NO. OR PRINT FORMAT? 
waKuP 282 If NOT 


SFAGSV_PRN,SD_C_FASOFASSS_RATCR11), WAKUP SSR IF PRINT FILE FORMAT 

RABSV_LOCoSO_G_RABORABSL_ROPCRI1) 3USE MOVE MODE 

SO_V_GOOO, WAKE, SO_S8_GEN_FLAGSCRI1) 3SEY GOOD WAKE FOR MAIN CODE 
WAKE THE SYMBIONT 


$38 3 


SETUIC ~- SET UIC TO THAT OF THE REQUESTOR 
RSTUIC = RESET UIC TO NORMAL 


LS8 
€*013260406> ¢ O8FAULT UIC = C124] 


2 SEY UIC TO THAT OF REQUESTOR 
SO_T_MSGOATASSINSL_UICCRI1),20 3 UIC IS HERE 

108 

RESTORE UIC 

DEFAULT UIC 

EXECUTE KERANL MODE ROUTINE 


CEFUIC.20 
S 8°1008—CR0) 


oo cf we 08 


MOCE ROUTINE TSO SET S¥"OIONT UIC 


Q 3 ENTRY 
JESCHSGL_CURPCE.RO 3 GET CURRENT PROCESS CONTROL SLOCKX 
CAP)» PCBSL_UTCCRO) 3 SEY TwE urc 
20 3 MARE AN GOD VALUE 
; 
Lss8 


MBRBAST 
33-000 


$3 


$a 
$6 


fa 


5a 


8s 
2€ 


2a 


ae 


a6 
03 


39 


o2 
C2 
$4 


ac 
63 


FEC 


03 


Q8 


WRITING A SYMBIONT 


Listing 4-4 Mailbox Ast (page 8 of 8) 


= SY“ATONT MATLEOX aST ROUTINE 
MESSAGE 4ANOLER = ABORT 


St 
13 
3% 


on 
ub 


0239 
6239 
6239 
0233 
0239 
0239 
6239 
6239 
0239 
G23¢ 
O23 
0240 
C242 
C266 
0282 
6255 
0254 
0258 
O258 
0250 
0260 
0262 
0265 
02693 
0264 
o26c 
0269 
0269 
6260 
6260 
6269 
6260 
0269 
6262 
6263 
6261 
€269 
6276 
C272 
0275 
Q27$ 
6280 
6293 
0289 
0290 
C296 
C2a8 
0283 
0283 
e283 
0283 


377 
378 
373 
386 
381 
382 
383 
384 
383 
386 
387 


388° 


389 
390 
391 
392 
393 
396 
395 
398 
397 
398 
399 
409 
601 
662 
603 
a0%6 
465 
£06 
et? 
408 
463 
636 
alt 
612 
633 
ble 
61§ 
S146 
G1? 
o18 
e193 
629 
a2 
@22 
623 
&26 
425 
426 
e27 


AMO EXIT L2—MAR—1982 16206507 _OBSOSCPRISMB. SRCISMBRBAST. 
eSBTTL MESSAGE MANOLER = ABORT AND EXIT 
3 B8ORT PRINT 
eENAGL LSS 
aeserts 
Cues GSTATES_ECF_CLOS R10 SARE WE OGNE 
SEQL 308 28R IF YES ~ IGNORE {Tf 
TsTs 210 SARE WE IOLE 
Seon 308 s8R IF YES ~ IGNORE IT 
SETBIT SOV _ ABORT, SO_S_ERR_FLAGSC RIL) SSET ABORT PRINT SIT 
SCANCEL_S SO_G_QTOSLKSQIOS_CHANCRIL) SCANCEL PRINTER I70 
Cuew SO_?T MSGDATACSIMSU_MSGTYPCRILI —= 
@mnSGS_ REQUE 3 IS THES & REQUEVE REQUEST? 
enéqu 188 3 If NEG = THEN NO 
CLROIT PORSV_DELETE = $ YES — CLEAR DELETE AtT 
SO_T MSGOATACSINSS _FLAGSCRI2) & IM FLAGS BYTE 
1$8e cues QSTATES_ SUSPEND .R10 SWERE WE SUSPENDED 
SweQ 208 s8R LF NO 
MOVZ3L «29.210 : SRESTGRE PREVIOUS STATE 
2083 cure @STATES_ASNOEV,220 3 TRYING TO ASSIGN THE PRINTER? 
aneg 303 ; SR TF KO 
CLR R10 ’ S€Y TDLE 
308: RSE $ 
eSSABL LSB 
3 SYMBTONT EXIT 
oENSBL LSB 
EXIT: 
Cree ESTATES _TOLE .RL6 ¢ARE WE IDLE 
s€QL 268 38R LF YES 
sew UNEXPECT SUNEXPECTED MESSAGE 
Tass 
SDASSGN_S SOW JSCCHANCRIL) SOEASSIGN THE HGR°S Me 
S5L8C¢ 290,208 s8R TF ERROR 
SO SSSGN_S SOLWIMBCHANCRIL) SOEASSIGN MY HE 
SLas 80,308 ; 382 TF OK 
208% STGNAL JBCS_MSOEAS, #65R0 SSIGNAL THE ERROR 
306: SOELMOX_S SOLWLUBSUNITCRI1) SCELETE MY MA CUUST IN CASED 
S€xIT_S sGONE - GET SuT 
-DSABL LSS 
2 ENO 


3—JUN-1982 18257233 VAX—-11 Macro V03-00 


WRITING A SYMBIONT 


SHIBER : © 
Y§S PRINTFLAG ff 
PAGE 










FLAG PAGE 
REQUESTED 


PRINT FORM 
| FEED 











‘DETERMINE 
CARRIAGE CONTROL 
PROPERTIES OF 
FILE 














SWAITFR 


GET AND PRINT. 


NEXT LINE (INCREMENTS QIOCNT AND GETCNT) 


UPDATE LINECNT 










MORE COPIES 
TO PRINT 


DECREMENT 
COPY COUNT SRENING 


NO 


Figure 4-17 Print Symbiont Main Loop 


TK-9190 


WRITING A SYMBIONT 


& AST’s DISABLED 
MARK FILE. 
FOR DELETION 










FILE TO 
~,, BE DELETED 





~ SETUIC 
TO THAT OF (KERNEL MODE) 
REQUESTOR 


SCLOSE | 


RESTORE 
SYMIONT UIC (KERNEL MODE) 


MscAnceL ££ 


SDASSGN 
| PRINTER 


SEND FILE DONE 
MESSAGE TO 
SYMBIONT MANAGER 


Figure 4-18 Print Symbiont Main Loop 


TK-9189 


WRITING A SYMBIONT 


GETCNT 


QIOCNT 





PAGELEN 


TKOI7NT 


Figure 4-19 FILE DONE Message send to Symbiont Manager 
MSG TYPE=9 Symbiont Done 


Reason 
l Success 
4 Aborted 
12 Input Error 
20 Print Error 
28 Open Error 


PAGCNT=LINECNT/PAGELEN 











WRITING A SYMBIONT 


Listing 4-5 Main Loop (page 1 of 6) 


mamatn ; - PRINT SYMBIONT MAIN ROUTINE 3<JUN-1982 18256235 VAK~12 Macro V¥63-00 ! 
02-901 DECLARATIONS 2e-APRH19BZ 1815236 _OBBOSCPRTSMGoSRCISMBAAIN.MA! 
0000 §§ oSBTTL DECLARATIONS 
0000 $9 3 : 
a ¢c09 60 3 INCLUOE FILESS 
0000 61 3 
eo0G €2 3 CPRYSHO. SRCSSMEPRE HAR 
e963 €3 
0969 66 3 
e000 €S$ 3 SacROSs 
6900 64 3 
e900 67? 
6009 68 3 
09e0 69 3 EQUATEO SY“@OLS: 
¢o00 70 
0500 TL SJSCNSGOEF SJOB CONTROLLER MESSAGES 
0999 72 SSHAOEF SSHAREO MESSAGES 
0009 ?3 
9589 74 
9060 7$ 3 
eaceo 76 3 Swe STERAGES 
coco 77 3 
eects 7s 
0700 79 reeuRE_OaTa 
e389 80 
0200 el SM38G_IaTass 
gne0cs32 0900 #2 eBUK8 SO_LK_SIZE TSYMOIONT OATA BASE 


WRITING A SYMBIONT 


Listing 4-5 Main Loop (page 2 of 6) 


- ORTNT SYMETONT M&IN ROUTINE 3-JUN"L98Z 18356335 VAX=-112 Macro V03-00 Page 3 


DECLARATIONS Z4oAPROL9BZ 18215236 _OSBOSC PRT SMB. SRCISMBMAINIMARSL ¢€19 
0634 Be PURE SECTION 
6000 CS Sme9su_AacOEsc: $ DESCRIPTOR FOR PURGE WORKING SET 
eoco000ga §=66000 &6 eL ONG ] ‘ 
TSFEEFEF 0004 e? eLOnG *XOTFEPEFEFE 3 PURGE ENTIRE WORKING SET 
0008 88 
0008 89 eSBTTL «PRINT SYMBIGNT MAIN ROUTINE 
o0cs 90 see 
0008 91 3 SUNCTIONAL DESCRIPTION: 
0008 92st 
0008 93 3 THIS IS TWE SYMBIONT MAIN LOGP 
6003 9% 3 
0008 95 3 SINCE THE PRINTER ORIVER LS COUBLE BSUPFERED, IT IS OPTIMAL 
6508 94 3% TG MAINTAIN TWO GUTSTANOING OUTPUT REQUESTS WHENEVER POSSIBLE. 
000$ 97 3 FOR THIS REASON, THES MAIN LOOP UTILIZES 2 I7G STATUS SLOCKS 
60083 98 3 Qn 2 EVENT FLAGS. THE INDEX TO THE CURRENT EVENT FLAG AND 
6068 99s STATUS BLOCK IS ALwATS R2. 
e608 106 ¢ 
6608 101 3 CALLING SEQUENCES 
e068 le2 5 
0008 103 ¢ ‘ENTER OQTRECTLY UPON COMPLETION OF THE INIT ROUTINE 
0008 106 3 
qnes 10S & INPUT PARAMETERS: 
6e0s 166 ¢ 
6938 107 3; R11 CONTAINS THE ADORESS OF THE IMPURE DATA SLOCK 
ooce 168 ¢ ’ 
6008 109 3 LTMOLTCTT INPUTSS 
eo08 120 5 ‘ 
codes +> 5 Se: AT WAKE, FILE TO BE PRINTED OPEN. PRINTER ASSIGNED = IN MBAST 
9908 wz2 ¢ 
0308 113 3 GQUTPUT PamamEeTERSs 
a90s 114 3 ‘ 
aces 125 ¢ NONE 
0508 126 3 
a0gs 117 ¢ LmMPLTCIT GuTeurss 
G008 224°: 
6203 1219 3 EILE PRINTED 
o3¢8 129 ¢ OGNE RSG SENT TO MGR 
0308 122 3 
C308 122 3: CCMPLETION CODES: 
0703 123: 
e008 126 ¢ NONE 
cscs 125 3 
caos 124 ¢ SIDE EFFECTS: 
o3c9 27 3 
e903 12¢ 5 NCNE 
oacs 129 3 
a964 139 S<< 
c430¢ Vt 
c3¢a 132 
e708 173 oENASL LSS 
Qj092 13s 
0303 135 Smesmarns ¢ smMAIN LOOP 
0403 136 SSETEF_ S$ OSmMASK TOFEFN SSTART WITH TOP OF FORM DONE 
Catt 127 10¢3 
Cci! 138 SPURGWS_S - 3 PURGE WORKING SET 
Octi 179 TINAORSSHMBSL ADOESC s AOORESS OF OFSCRIPTOR 
ec1e 169 : 


SMSMAIN 
¥03-6001 


£4 93 83 G2 


ei 

16 ¢9s8 Ce 
9@ A3 93 
secce 

63 $0 

Cott 
®FC3° 


2© Q2 a3 32 
104 Ce 

6200 Ce 

Oeza CE 

03 

C0f04199C $8 
Coca °Ccr Qs 
SFn2° 

6c#0 


3628 C3 O21 
03 0088 C3 6s 
e#91° 


OT 
O126 C8 
38 
ooec C8 


05 6118 C3 91 
90EC C3 20 


WRITING A SYMBIONT 


Listing 4-5 Main Loop (page 3 of 6) 


= ORTNT SYM®TONT MAIN QQUTINE 
SOYINT SYM“ELONY PAIN ROUTINE 


es 


92 
30 
€8 
31 
30 


$0 
EL 
36 


12 
96 


£1 
9a 


0928 
0922 
O02? 
os27 
6027 
0027 
6927 
G62? 
0029 
0025 
003% 
0034 
0037 
0034 
0035 
6039 
0030 
0942 
6046 
OG4a 
Q98E 
6056 
Cas6 
0654 
OOSE 
Q061 
606% 
0062 
0066 
0066 
0068 
Q073 
toy a4 
O07? 
GOTT 
Q0TT 
oor? 
oor? 
cor9 
ae7e 
oj7e 
0082 
0084 
0086 
0986 
0086 
0086 
0086 
0686 
008sc 
009% 
009% 
0092 
0091 
0091 
009% 
009a 


161% 
162 
143 
164 
365 
1466 
147 
163 
1469 
1¢4 
1S 
182 
153 
186 
15s 
1384 
UsT 
1$8 
189 
160 
16% 
162 
163 
164 
16S 
166 
167 
168 
169 
170 
w71 
172 
173 
1764 
17$ 
176 
17? 
178 
179 
189 
181 
182 
183 
186 
185 
186 
1e7 
188 
189 
199 
192 
192 
193 
196 
195 


197 


oo 


PRINT 


Oo 66 


2683 


30s: 


3333 


4083 


CwrECK 


ee we o@ 


CMéeck 


SOs: 


@ co ce of 


Oss 


3—JUN—1962 18256235 VAX-ii Maero V¥O3-00 
26-APR-1982 18215236 _OBSOSCPRISME.SRCISMBYAIN 


SHTBER_S SWAIT BOR SOMETHING TO 09 
secc #S0_V_GOOG_WAK®,SD_8_GEN_FLAGSCR11),108 38R TF SHOULON’T 
THE FLAG PAGE 
$8c CPQRSV_FLAGPAG,= 

SO_T_MSGDATASIMSBS_FLAGSCR11)5308 38R TF NO FLAG PAGE 
“gve @STATES_ELAGPAGE,SO_S_STATECRI2L) SSET FLAG PAGE STATE 
3seu SMOSFLAGPAGE SPRINT THE FLAG PAGE 
eLss 20,208 388 IF OK 
sey $0 sQurT 
8s3u SHSSTOPCEOR ZPRINT THE FORM FEED 
asc SS0_V_OPENERR, SO_8_ERR_FLAGSCRI13935S 388 IF OPENED OK 
PUSHL  SO_G_FAGSEABSL_STYCR1L) SRMS STATUS VALUE 
PUSHL  SD_G_FAS*FABSL_STSCRIL) SAMS STATUS COOE 
PUSMAL SO_LO_PTLENAMECRI1) fAOOR OF FILE NAME DESCRIPTOR 
PUSHL =e. $2 FAO ARG 
PUSHL 4€6916>1SKRS_OPENTNIS 3CONOITION CODE 
CALLS #5 e¥4LIBSSIGHAL SSIGNAL THE ERROR 
assy SmOSTOPOFORK SPRINT FORM FEED 
sew 908 SEXIT 
“OVN $2 oSO_W_PAGECR11) SEINIT PAGE NUMOER 
ssc #PORSV_PAGHOR, SO_T_MSGOATASINSBS_PLAGSCR119940% SBR IF NX 
3s3u SMS SPAGEHORNEF SPRINT & HEADER / NO FORM FEED 
SETBIT SD_V_FLGPAGOGNE»SO_8_GEN_FLAGSCRIZ) SET OONE WITH FLAG 
CLRBIT SO_V_FFREG,SO_S_GEN_FLAGSCRI1) SCLEAR FORM FEED REQUIRED 


TF INTERNAL CARRIAGE CONTROL 


sTrTs CFABSH CRIFAGSM_ETHIELESM_ PRN YO 

SO_G_FABSSFABSS _ RATCRIT) SIS IT INTERNAL CAR CONTI 
SHEQ sos sak IF NO 
CLRe SO_G_STOSLK*QIOS _POCRILISNG CARRIAGE CONTROL 
SEYTSIT SO_Y_INTRANLCC.SO_S_GEN_FLAGSCRI1) sSHOW INTERNAL CARRTAC 
TP “CR-LE° CARRIAGE CONTROL 


ssc 
BOVZSL 


QPASSV_CROSD_G_FASCFABSS_RATCR11)960% 38R TF NOT “CR=LE‘ 
@*AN VeSD_G_LOICBLKCOTOS_POCRI1) 3SET SINGLE SPACE CC 


INITIALIZE THE B70 STaTus 


sS€Ter_s INITIALLY SET THE EVENT FLAGS, 


SS€TEF_S 


OSMBSK_LPEFNO |; 
@SMBSK_LPEENL =; 


In 


he 


$a 02 
30 


$2 
1s 03 


4? 
49 48 


43° a8 


ye 


Ne 


17 ae 
le as 
52 


as 06 


Qe ad 
a3 $1 
as 93 


a3 $2 
#3 af 


49 ae 


ag a$ 


O02 48 
GIRC cE 


83 32 
FEST 


WRITING A SYMBIONT 


Listing 4-5 Main Loop (page 4 of 6) 


re 
7¢ 
ce 


94 


ct 


EO 
TE 
$5 
13 
es 


1 


94 
co 
&4 
07 


91 
13 
$2 
12 
93 


9t 


“13 


34 
s¢ 
1% 


30 


95 
12 
97 
13 


99 


71 


eESEZFEE FIOSOESS 


O9A3 
Coas 
004e 
oaas 
0048 
0028 
ooa4 
0048 
ogaf® 
coat 
agae 
0083 
oosc 
oct 
Coes 
eacs 
oaca 
eoc5 
6001 
GOES 
o0e2 
OO€2 
C9E4 
COEA 
COEF 
CoFL 
COFFS 
corsa 
bbl ds 
aror 
6103 
0105 
Q107 
0109 
6109 
91093 
ics 
C113 
CIITA 
01133 
C138 
0118 
0218 
0115 
Gite 
0113 
6129 
C12zé 
0137 
O13¢ 
Q13€ 
O142 
Clos 
O16 
0153 
0154 
0184 


198 
199 
200 
201 
202 
203 
206 
205 
204 
207 70s: 
208 

2¢e9 

226 

222 

232 

233 

226 

215 

216 

217 

228 


219 75383 


220 
2212 
222 
223 
22% 7683 
225 
224 
227 
228 7783s 
229 
229 
271 
232 
233 
236 
235 
236 
237 
238 
229 
260 
261 
262 
263 308: 
246 
265 
266 
267 
249 
2463 
259 
2$1 
252 
2$3 
254 8f35s 


- ORINT SYMBLTONT MAIN ROUTINE 
PRINT SY“BIONT MAT ROUTINE 


cLeqQ 
cLReg 
CLRL 


“atu 370 L.car 


nave 


agoL3 


SWATTER_ 


86S 
~ovag 
TsTw 
sear 
BL8S 
SserTertr 
STGMAL 
ars 


wOvzSe 
a00L 
ses 
Oeci 
aoos 
Ccueg 
SLEQU 
suss 
ses 
arts 


Cmueg. 
S€Qu 
CURBIT 
3ssv 
rors 
srs 


STILE PRINTED, 


SSETING_ 


3$8w 


sCanTIn_ 


Tsts 
SNES 
ogcs 

S&L £ou 
SREwWInNO 
nCVE 
seu 


eo LONG 


3-JUN—1982 18256535 VAX-11 Macre V03-00 Page $s 
24—APRH1L9SZ 18225236 _OBBOSCPRTSMB.SRCISMBEMAIN. MARS 1 «19 
SO_-Q_TOSB8OCRI1> sCLEAR £70 STATUS 
$OLO_TOSS21CR12) tece 
R2 SAND INITIALIZE THE I70 STATUS INDEX 


@STATES_GET_PRIN,SO_8_STATECRIL) SSET GET/PRINT STATE 


SSMOSK _LPEFNGO, 22,29 sGET EVENT FLAG NUMBER 

S$ RO sWATT FOR THE 170 TO COMPLETE 
OSO_V_ ABORT, SO_B_LEGR_FLAGSCRI1),808 S8R TF ABORTING 
SOLQ_IOSSOCRILICRZIRO sSGEY THE IOS8 ACORESS 


CRO) sOL0 LT COMPLETE? 
77s 382 Tf NO COR 21ST f70) 
CR03,758 78k IF OK 


SOV PRINTERR,SO_S_ERR_FLAGSCRI1L) SSET PRINT ERROR 
JOCS_PRINTOUT, 40.620) SSIGNAL THE ERROR 
808 sQurr 


4CROD RL sGET SLINES PRINTED 
RI oSOLL_LINECNTCRIL) ta00 LINES PRINTED TO Torat 
OSO_V_FFREQSSO_S_GEN_FLAGSCRI1),773 388 IF LAST [7G WAS A FF 


Ri TALREADY ASSUMED ONE LINE 
®1,S0_8_LTPCNTCRI1) 2A0D TO LINES THIS PAGE COUNT 
SO_S_LTPCNTCRI1) »SO_S_PAGELENCR11) 3@ LINES GTR THAN PAGE STZE? 
173. 782 IF NO 
SD_S_PAGELENCR11),SO_S_LTPCNTCRIL) ZNORMALIZE 

768 2CHECK AGAIN 
@S0_4_GETERRISD_"_PRINTERRISO_M_ABORT,— ANY ERRORS? 
SO_B_LERR_FLAGSCRI1) 

sos 382 IF Yes 
@STATES_£OF_CLOS.SO_S_STATECRI2) SARE WE DONE? 

80% 78 IF YES 
SO_V_FFREQ.SO_S_GEN_FLAGSCR11) SCLEAR FF REQUIRED 
SMESGET 3GET ANO PRINT THE NEXT LINE 
#1522 STOGGLE 170 STATUS INOEX 

70% 7GET ANO PRINT NEXT LINE 


SET paver TO TOP OF PAGE, AND SEE IF ANY MORE COPTES 


S @SMASK_TOPEFN.B°85S SET TIMER IN CASE PRINTER ITS BROKEN 
SMSSTOPCEORE sPUT PAPER AT TOP OF FORM 

$ sCANCEL TOP OCF FORM TIMER 

$08 ERR _FLAGSCRI2D sANY ERRORS 

90% s8R LF ERRORS ~- CAN°T BE OPEN ERROR 
SOLTIMSGOATACSTIMSS_FILCOPYCRI1) sSuBT 1 FOR THIS COPY 

908 28R TF OONE =~ CAN“T BE ANY ERRORS 
SOLG_RaaCcR1ILd sREWIND THE FILE FOR NEXT COPY 
OSTATES OPEN SSO_S_STATECRIL} SRESET STATE TO OPEN 

308 cPRINT NEXT COPY 

€-18500000005,-1 35 SECONQ OELTA TIME 





WRITING A SYMBIONT 


Listing 4-5 Main Loop (page 5 of 6) 


smMaRaIN = PRINT SYMOTONT MAIN ROUTINE 3—-JUN“1982 18556235 VAX—-11 Maceo VO3—00 


493-001 ORINT SYMBIONT PAIN ROUTINE 26-8PR-1982 18215336 _OBSOSCPRTSMS.SRCISMBMAIN 
O1s|e 255 
Oise 286 3 
01S 257 3 FILE PRINTING DONE 
4 Ose 258 3 
015€ 289 
G1SE 260 9083 SSETAST_S$ 86 SOXSABLE ASTS FOR SURE 
G16T 261 
cara C8 8S 0167 262 TsTw SO_G _FASOPABSW_IFICRI1> ¢ HAS GPEN BEEN DONE? 
32 43° (0168 263 BECL 1208 3 BR IF NO 
0260 264 * CLRBEIT FABSY_OLT»SO_G_FASSFABSL_FOPCRII) SCLEAR THE OELETE SIT 
6186 CB 8S 90173 265 TsTw SO_G_NAMONAMSW_DOIDCRI1L) SFILE HAVE A OLTRECTORY? 
Qs 13° «0177 265 SE€QL 1228 SIF NO-OELETE IF REQUESTED EVEN 
Of 02 a3 60 €0 OL179 267 sss SPSO_LV_ ABORT, SO_B_ERR_FLAGSCR1I19,125% $8R IF ABORTING 
09 9088 C3 60 Et O17E 268 11288 esc SPQRSV DELETE »SO_T MSGOATASCSIMSB_FLAGSCRILD, L158 s8R IF 
0286 269 SETEIT FASSV_OLT, SO_G_FPASOFASSL_FOPCRI1) 3 TELL RAS TO OELETE T 
FE73° 39 0288 270 536u SmBSSETUTC SSET UIC TO REQUESTOR ~’S 
0180 27% 21582. sCLOSE $6_6_ Fasc Rriid SCLOSE THE FILE 
Giéa C8 8% 0:98 272 ciraw SO_G_RABERASSW_ISICRI1) &$ EFFECT A FAST OISCONNECT AFTER 
f€51° 30 919¢ 273 essu smesexsturc SBE SURE WE°RE RUNNING AT RIGHT 
O19 276 
ose 275 $ 
OLgF 2764 3 SET ENOING STATUS 
O19F aT? 5 
O1sF 278 
$3 oc 94 0198 279 12083 MOVZBL EMOOS_INPERR, 23 sASSUME INPUT ERRGR 
13°02 As 32 £€Q 6242 286 aes SSO_V_GETERR.SO_S8_ERR_FLAGSCRI13,1308 3 SP if input erre 
$3 1¢ 9& Lar 28% MOVZ8L *FhODS_OPRERR, 23 ¢ Assume open errer 
13 32 a3 62 €O O1Aaa 282 BBS €SO_V_GPENERR,SO_S_ERR_PLAGSCRIIS.1308 ¢ Se if open err 
$3 16 9a o71ae 283 MGVZBL eNCOS_ PRYERR,23 SASSUME PRINT ERRGR 
68 G2 48 03 €3 Gi82 284 ses @SO_V_PRINTERR,SO_8_ ERR_FLAGSCRI1I9,2330$ SBR IE PRINT ERI 
$3 34 92 0187 28s MOVZSL 4 8B00S_ASORT, 23 SASSUME ABORT 
63 02 a3 68 €o 01684 286 ass @SO_V_ S8ORT, SO_BS_ERR_FLAGSCRIL3,1308 362 LF ABORT 
$3 62 9& O18F 287 MOVZSL €mOD8$_ SUCCESS. 23 SSET SUCCESS 
01€2 288 
orc2 289 ; 
01c2 29@ 3 GO FINAL CLEAN UF 
o1c2 291 3 
o1c2 292 
61C2 293 13608: 
62 48 ®& 62C2 294 cLew SO_8_E&R_ FLAGSC RIL) sRESET SOTH GROUPS OF FLAGS 
OF af 85 O1CS 295 TST SO_LQ_TOFTOSSCRiIl) sOI0 TOF COMPLETE OR TreEouT? 
ac 12 0108 296 sneq 1408 s8R IF IG COMPLETED 
oica 297 SCANCEL_S SO_G_QIGSLA*QCIOS_ CHANCRI1) ABORT THE IO IF NOY Cone 
0104 298 14088 SOASSGN_S SO_G_LOICSLAKFOQIOS CHANCRI1) SOEASSIGN THE PRINTER 
GLE2 299 
O12 300 ¢ 
OL1E2 302 $ SENG CONE MESSAGE TO BGR —- R3 HAS STATUS 
OLE2 302 : e 
O2E2 303 
O1E2 304 
O1E2 305 ASSUME STATES_IOLE EQ 0 
O2LE2 306 
64 af 94 OQ1LE2 3¢c7 CLRS SO_8_STATECRI1) sSET TOLE STATE 
*Eis°’ 30 O1€5 308 sss SMSSFTILE_OONE SEND DONE MSG TO "G2 
oles 309 sS€TasTis st SENABLE ASTS 
C814 32 «OLFL 3196 gery SPOSMAIN 3GQ AGAIN 
O1FS 311 
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Listing 4-5 Main Loop (page 6 of 6) 


~ PRINT SYMACTONT MAIN VOUTINE 3 JUN“19S2 18256235 VAX-11 “Seero ¥03~00 Page 7 
PRINT SYV*OTONT MAIN ROUTINE 24-bPR-19B2 18515236 _OBSOSCPRISMB.SRCISMOMAIN. MARS 2 C1) 
Q1F 6 322 eOSast LS8 
O1Fs6 312 eo ENO 
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CRORIVER 













| Lona SCREPRE | JtoB 










INPSMB 


eee CONTROLLER 
INPSMB.EXE eee ee IEA ANE 
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Figure 4-28 Input Symbiont 
Card reader activated, generates interrupt 
CRDRIVER sends message to Job Controller's Mailbox 
Job Controller issues a SCREPRC (using INPSMB.EXE) 


INPSMB.EXE issues $QIO's to the card reader 


reER 
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Listing 4-6 Card Reader Interrupt Routine 


£3 9€ 

$4 63 

22 58 35 02 
33 19 85 
oc 35S 

£3 se 

$2 sé 

s& s€ 

$3 4 

$4 a4 8F 
sc 0600 Sf 
ac 

$q as 

C7? 

C2 Sa as 30 
oa 

$93 sé 

52 8€ 

56 s€ 
09000503 “GF 
54 02 
o9gce309°SF 
03030009 °GF 
046 50 

fa as 02 


- CRIT CARO VWEACER ONIVER 


CPsi Caen 
0691 
e491 
0491 
0491 
0691 
0691 
0491 
C491 
491 
C491 
0691 
C491 
0691 
C492 
069% 
049i 
069% 
069% 
0691 
0492 
0491 
C49t 
06 0692 
7G 0696 
£5 04697 
8G 049¢ 
16 8¢Aa9 
79 «494683 
70 06486 
70 04689 
G2 64a€ 

0440 

26ac 

04a9 

0440 

0649 
3G 460680 
93 «#9680 
23 0686 
13) 04689 
2S 06868 
12 Cees 
£2 06«¢€0 
10 0 «6O6ecs 
79 «4686C7 
70 Os¢a 
70 4 496¢0 
82 06590 
16 0601 
9a 0667 
92 esoa 
14 Q6é1 
€S O6€7 
AA 0664 
6S e4EF 


208 


21907 
19¢8 
1009 
10130 
1¢21 
1012 
1023 
1024 
1015 
1914 
1017 
1018 
1019 
1926 
1021 
1922 
1923 
1026 
1025 
1025 
1027 
1028 
1029 
10390 
1032 
1032 
1633 
1936 
1035 
21036 
1637 
103¢ 
10639 
1949 
10612 
1062 
1943 
10464 
1045 
1046 
1047 
1048 
1949 
1689 
1081 
1982 
1083 
1086 
1055 
1084 
1987 


"10g" 


1059 
1060 
1062 
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oSBTTL CRI CARD READER INTOERRUPTS 


e 


CRSINT —- CRI CARO REACER INTERRUPTS 


THIS ROUTINE IS ENTERED VIA A JSS INSTRUCTION WHEN AM INTERRUPT OCCURS ON A 


CRI1 CARD READER CONTROLLER. THE STATE OF THE STACK ON ENTRY IS3 
OOCSP) ADORESS OF IOs AOORESS. 
06C€SP) 24€SP) = SAVED R80 — RS. 


2 
28CSP) = INTERRUPT PC. 
32CSP) = INTERRUPT PSL. 


INTERRUPT OTSPATCHING OCCURS AS FOLLOWS: 


TF THE INTERRUPT IS EXPECTED, THE ORIVER IS CALLED aT ITS 
INTERRUPT RETURN ACORESS CUCESL_FPCI. IF THE INTERRUPT IS 
NOT EXPECTED ANO THE DEVICE IS NOT ALLOCATED, & MESSAGE IS 
SENT TO THE JOS CONTROLLER TO INFORM IT THAT AN INPUT 
SY“STONT PROCESS SMOGULO SE CREATED TO READ THE CAROS. 


©0 Ce @0 06 06 BO C8 08 c0 08 O8 ce Ce of Se 0 28 ce oe 


CRSINTSS SCARD READER INTERRUPT 
NOVEL aCSPO RZ sGET ADORESS OF TO8 


“ava TOSSL_CSRCRID,RS SGET CONTROLLER CSR AaNO OWNER UCS ADORESS 


secc SUCESV_INT ,-UCBSW_STSCRS) 5108 SIF CLR, INTERRUPT NOT EXPECTED 
MOVE UCSSL_FR3CRS),23 SRESTORE REMAINING ORIVER CONTEXT 
Iss auCBst_FPccRs) SCALL ORIVER 
“OvQ CSP2%,20 - 3RESTORE REGISTERS 
"Ova CSP) %yR2 3 
MOYO —«-_s« CSP yRS 3 
rer : 
3 UNSOLICITED INTERRUPT 
10%: MOVIWL CR_CSRCRSD RO TGET READER STATUS 
MOVZSW. SCR_CSR_M_TE.CR_CSRCRS) CLEAR STATUS, ENASLE INTERRUPTS 
sity @CR_CSR_4_ ONLINE, 20 SREADER TRANSITION TO ONLINE? 
sear 208 32 EOL NO 
TsTw UCSSW_REFCCRS) SDEVICE ASSIGNED OR ALLOCATED? 
BNEQ 20% TIF NEQ TES 
aess #UCBSV_JOB.UCESW_DEVSTSCRS)e203 SIF SET, MESSAGE ALREADY SENT 
3s48 30% SSENO MESSAGE TO JOS CONTROLLER 
2082 mcyg CSP) 0, RO SRESTORE REGISTERS 
"OVO CSP)4,R2 2 
“OVO CSPD4, 86 ; 
eet 3 
3033 JS8 G*ExesForn SCREATE FORK PROCESS 
MOVZSL «MSGS_CRUNSOLIC» R26 TSET MESSAGE TYPE 
MOVAS «= G*SYSSGL_JOBCTLMS, 23 TSET ADORESS Of JOS CONTROLLER MAILBOX 
JS8 G*EXES SNOEVNSG SSENT MESSAGE TO JOS CONTROLLER 
SL3S 20,403 TIF LBS SUCCESSFUL NOTIFICATION 
ercw 8UCESH_JOB UCB SW_DEVSTSCRS) SCLEAR MESSAGE SENT BIT 
sos: RS8 3 
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MSGTYPE _—i| 


DEVNAME 





-FILEID” 
NAM BLOCK 
INFORMATION 
FILENAME } 20 BYTES 
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Figure 4-21 Enter BATCH JOB Message 


MSGTYPE=8 ENTER BATCH JOB 


QUEUE Batch Queue Name 
FILENAME | Job Name 
OPTIONS From SJOB Card 
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Alternate Input Symbionts 
1. _Create a separate process 
2. Allocate device 
3. Assign channel to device with associated mailbox 
4. Issue QIO to mailbox that activates an AST 


5. SHIBER 


—- 
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WRITING AN APPLICATIONS MIGRATION EXECUTIVE 


INTRODUCTION 


The VAX hardware is capable of executing either native mode 
instructions, or PDP-11 instructions in compatibility mode (CM). 
A bit in the Processor Status Longword (PSL) determines which 
instruction set is being used. The main reason for providing a 
compatibility mode is to allow programs written on PDP-ll systems 
to run (without modification) on VMS systems. 


However, most PDP=-ll programs will need assistance to run 
correctly on a VMS system, since they will typically request 
operations to be performed by the operating system (e.g., to 
perform an I/O operation). VMS will not be able to directly 
recognize the operations being requested, since the requests will 
be in the form of executive directives understandable by a PDP=1l 
operating system (like RSX-11M). A translator (emulator) is 
Needed to convert these requests into VMS system service calls. 
An Applications Migration Executive (AME) serves the role of 
either emulating a PDP-l1l operating system, and performing the 
requested function, or converting the requested function into an 
equivalent VMS system service call. 


An AME is a native mode image that can issue VMS system services. 
It is run in the context of the process performing CM operations. 
It is the responsibility of the AME to load the PDP-11 program 
into part of its virtual address space. VMS only loads the AME, 
and the AME must load the CM image. Two images are therefore 
present in the process's context at the same time, the CM image, 
containing the program the user wants run, and the native mode AME 
image, serving as the interface between the user program and VMS. 
Control is transferred back and forth between these two images 
whenever intervention by the AME is required. 


This module explains the basic details about CM exceptions 
necessary to write an AME for a PDP-11 operating system. The 
services provided by VAX/VMS to aid the writer of an AME also will 
be explained. 


This module assumes that you are familiar with at least one PDP-11 
operating system so that the functions performed by any AME can be 
understood. However, the module makes no attempt to explain the 
workings of any PDP-1ll operating system, or how image files are 
structured by the linkers or task-builders of such systems. 
Rather, this module assumes you already understand the operating 
system that will be emulated. 
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OBJECTIVES 
A specialist with a system level understanding of a PDP-1l 
eperating system will be able to: 


“e@ ~ Write a program that is capable of reading into the low 64K of 
P@# space an image (or task or program) that was created for 
the target PDP-1l operating system. 


e Establish a compatibility mode exception service routine to 
handle the various exceptions that can eccur from 
compatibility mode. 

e Write an exception service routine that can distinguish the 


various compatibility mode exceptions, and dispatch control 
accordingly. , 


RESOURCES 


AME source code listings 


VMS source code listings 
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Overview of Compatibility Mode 


e Environment for execution of non-privileged RSX-11M programs 


“e@ - Hardware compatibility provided by VAX processor being able to 
execute subset of the PDP-11 instruction set 


e Software compatibility provided by several programs that 
emulate RSX-11M operating system environment 


The RSX=-11M AME allows non-privileged tasks to execute 
without change 


The MCR command language provided as an alternative to 
DCL. 


File compatibility is provided at both the record ‘and 
volume levels: 


o The record structure of RMS-l1 files is identical to 
the record structure of VAX-11 RMS files 


o An ACP is provided on VMS to service Files-11 volumes 
which support the On-Disk Structure Level 1, QDS-1 
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PDP-1l Instructions That A Compatibility Mode Program Can Execute 


e All PDP-11 non-privileged instructions, except MARK (including 


Extended Instruction SET, EIS) 


$omm owen eee oe +omen— oo + 
| | | 
| Opcode | Mnemonic | 
(octal) | | 
| | | 
See eee pore nnn n ewe eno + 
| | | 
| GAGGE2 | RTI | 
89SG06 | RTI | 
| AGG1IDD | JMP | 
| AGG2GR | RTS | 
|9090@248€-896277|Condition Codes | 
|  @@83DD | SWAB | 
1890¢400-9003777| Branches | 
119000¢-103777| Branches | 
| @9G4RDD | JSR | 
| -@5@DD | CLR (B) | 
| e@51DD | COM(B) | 
| ef52DD | INC (B) | 
| -@53DD | DEC (B) | 
| -@54DD | NEG (B) | 
| -@55DD | ADC (B) | 
-@56DD | SBC (B) | 
I: -857DD | TST (B) | 
| -@64DD ROR (B) | 
| -@61DD { ROL(B) | 
| -@62DD | ASR (B) : 
| 

+o an = + wenn + 


Opcode 
(octal) 


Q 
4 
t 
8 
] 
§ 
§ 
4 
4 
] 
i 
§ 
] 
§ 
§ 


-f63DD 
9665SS 
@AG6EDD 
1465SS 


~1966DD 


9467DD 
87@RSS 
871RSS 
972RSS 
@73RSS 
874RSS 
477RNN 
- 1SSDD 
~ 2SSDD 
» 3SSDD 
- 4SSDD 
- 5SSDD 
@6SSDD 
16SSDD 


+—-—-—-—+ 


+ eee eee cee eens me ee emer ere cement nin AD eee nine SEL LINEN ee SR mee tn ces 


Mnemonic 


ASL(B) 
MFPI* 
MTPI* 
MFPD* 
MTPD* 

SXT 
MUL 
DIV 
ASH 
ASHC 
XOR 
SOB 

MOV(B) 

CMP(B) 

BIT (B) 

BIC(B) 

BIS(B) 
ADD 
SUB 


§ 
Q 
i 
0 
i 
§ 
] 
§ 
§ 
t 
t 
t 
Q 
§ 
8 
+ 


amie itendiamsia:tenndnemieniamteetemiemedioen te 2 —— —— ee 


{ 
t 
! 
{ 
' 
j 
§ 
' 
t 
4 
§ 
1 
4 
| 
| 
+ 


(*) These instructions execute exactly as they would on a PDP-1l 


in 


user 


with 


specifically, they ignore the previous access level and 
PUSH and POP instructions referencing the current stack. 


Instruction and Data space overmapped. Mor 
act lik 
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PDP-11 Compatibility Mode Trap Instructions 


$ eww nnn on pawn wn oe + 
| | | 
| Opeode (octal) Mnemonic 
+——--—— we eee wo ow oo nn | ee = + + 
| | | 
| 988083 | BPT | 
| BAd0N4 | IOT | 
| 1%4800-1094377 | EMT | 
| 184490-194777 | TRAP | 
| | 
$e ewe nn ee ooo + 


e Execution of any of these instructions results in 
a compatibility mode exception 


PDP—11 Compatibility Mode Reserved Instructions 


penn nn ne = = - -- $a ne ne oe + 
| |. : | 
| Opeode (octal) J Mnemonic | 
| | 
$——--- ~~ ------= ee er ee ee + 
| | | 
| AGBEAE | HALT | 
| GBAGGO1 | WAIT | 
| GBAGGS | RESET | 
| GAG22X | SPL | 
| O@G64XX | MARK | 
| 6758GR | FADD (FIS) | 
| 87501R | FSUB (FIS) | 
| @7502R | FMUL (FIS) | 
| 47503R | FDIV (FIS) | 
| 17XXXX | FP11l Floating | 
| | Point Instructions | 
| | 
$22 ee fan ne oe ee e+ + + 

e These instructions are unavailable to PDP-11 programs 

e Execution of these instructions results in a Reserved 


Instruction Compatibility Mode Exception. 


WRITING AN APPLICATIONS MIGRATION EXECUTIVE 


Compatibility Mode Exceptions 


-e@ . Generated when program executes an instruction that would 


result in a trap on the PDP-1l1. 


Hardware pushes PSL and PC on kernel stack, along with code 
that identifies the type of compatibility mode exception 









COMPATIBILITY EXCEPTION CODE ,/e— 


PC OF FAULTING INSTRUCTION 


EXCEPTION PSL 


TR-9168 


The types of compatibility mode exceptions are: 


| 
Reserved Instruction Execution | 
BPT Instruction Executed 
IOT Instruction Executed | 
EMT Instruction Executed | 
TRAP Instruction Executed | 
Illegal Instruction Executed 
Odd Address Trap | 
TBIT Trap 


YAU PWNE DB 
Soe a en ere ere aan! Oe 


+ 
\ 
\ 
! 
( 
y 
i 
f 
{ 
{ 

+ 
! 
\ 
| 
{ 
\ 
\ 
1 
\ 
i 
\ 
\ 
j 
! 
{ 
\ 
‘ 
j 
\ 
{ 
\ 
4 
1 
' 
t 
1 
| 
\ 
\ 
1 
‘ 
\ 
\ 
i 
! 
{ 
! 
{ 
( 
\ 

{ 

' 

\ 
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The RSX-11M AME 


e Integral part of the VAX/VMS system 
- Native mode image SYSSSYSTEM:RSX.EXE 
e Shareable parts of the AME 
SYSSSHARE:RSXSHR. EXE 
SYSSSHARE:RSXUSR. EXE 
#- Invoked by image activator 


- Allows non-privileged RSX-11M tasks to execute on VMS 
Systems without change 


- Supplies an environment that simulates the RSX=-11M 
eperating system . gs 


e Basic functions 
- Initiates RSX-11M task 
- Establishes exception handler 
- Responds to compatibility mode exceptions 
e Identifies type of exception 
e Acts accordingly 
- Responds to native mode exceptions (e.g. access 
violations) 
e Servicing EMT instruction special case 
- User-generated trap, or 
- Executive directive (EMT 377) 
e Can perform service itself 


- For example, Get Task Parameters, GTSKS 


e Or request service from VMS 
- For example, RSX-l11 QIOS executive directive 


transformed into equivalent VMS S$QIO. system 
service 


2-9 


WRITING AN APPLICATIONS MIGRATION EXECUTIVE 


Invoking an AME 


@ The RSX-11M AME activated automatically 
- By image activator 

- In response to SRUN program 

- Using information in image file 


- Information placed there by task builder 


- Distinguishes native mode and compatibility mode images 


e User-Written AME‘s can be activated in the following ways: 
=- Could SRUN user-written-AME 


@ AME would prompt for compatibility mode image name 


- Could use foreign command to invoke AME 
@e SMYAME :== "SSYSSSYSTEM:MYAME. EXE" 
(in yetancwids LOGIN.COM) 
e User types SMYAME MYPROG 


- MYAME invoked, it could use LIBSGET FOREIGN to 
pick up image name (MYPROG) 


- Could add command to DCL tables to invoke AME 


e “Would issue CLI callback to obtain image name 
(CLISGET VALUE) 


- Could place information in image file identifying AME 
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Identifying AME in Image File 


First Block in Image File 


IMAGE HEADER INFORMATION 


FILENAME 


LAST 128 BYTES 





CODE WORD 


TK-9163 


Code Word Value Image to Activate 


<@ Native mode image in image file 
(VAX-11 Linker uses <1) 


a SYSSSYSTEM:RSX.EXE (RSX=-11M AME). 
1 SYSSSYSTEM:BPA.EXE (currently not used) 
2 Filename specified by last 128 bytes 


(less last word used to hold code) 
Filename specified as counted ASCII string 


File could be an AME (or any other native 
mode image) 


Name of image file user specified on RUN 
command stored as counted ASCII string at 
CTLSAG CMEDATA 
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General AME Flow 





AME INITIALIZATION: | 
| = CREATING VIRTUAL ADORESS SPACE FOR COMPATIBILITY 
MODE PROGRAM 







READING COMPATIBILITY MODE PROGRAM INTO MEMORY 


— ESTABLISHING EXCEPTION HANDLER TO SERVICE 
COMPATIBILITY MODE EXCEPTIONS 















STARTING COMPATIBILITY MODE IMAGE 


WHENEVER EXCEPTION, 
OCCURS 






RESPONDING TO COMPATIBILITY MODE 


1 f 
i 
{i 
‘ 
; 
K 
, 
es m 0 





RETURNING CONTROL TO COMPATIBILITY 
MODE IMAGE 





4 





TK-B160 
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Creating Virtual Address Space For The CM Program 


.@ AME image typically linked with base address of 64K. 


$LINK AME, BASE.OPT/OPTIONS where 


BASE.OPT contains BASE=%X1@499@ ! hex 64K 







Q THIS ADDRESS SPACE 
INITIALLY NOT 
CREATED BY IMAGE 
ACTIVATOR 


ONLY THIS ADDRESS 
SPACE CREATED BY 
. IMAGE ACTIVATOR 


TK-9161 





ROOM FOR COMP. 
MODE IMAGE 


@ Leave 64K for compatibility mode image since that is maximum 
address space for any PDP-1l image. 


e Must leave low addresses (starting at 48) free, since 
compatibility mode image will need to use those addresses. 


@ AME typically creates virtual address space using SCRETVA 
system service: 


- Amount created depends on environment being simulated 
- Must create enough space to hold entire image 


- Size of image is system dependent, and usually put into 
image file by that system's linker (or task builder) 
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Reading Compatibility Mode Program Into Memory 


.@ Once address space created, can use $QI0 calls or RMS block 
'  ~ reads. 


- Requires understanding of how image file structured by 
| system's linker or task builder. 
e TI£ compatibility mode program contains overlays: 
- AME need only read root segment into memory 
- Qverlay code that is part of compatibility mode image 


contains the calls necessary to read in the overlay 
segments as they are referenced 


e Alternative Method to using SCRETVA to create virtual address 
space, and reading in image: 
- Use SCRMPSC system service 
e Creates required address space 
e Sets up the page tables in such a way that all the 


input from the image file is performed by the pager. 


- Cannot be used if overlays are involved 
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Establishing The Exception Handler 


_@ Two Options 
- Normal Condition Handler 
CALL LIBSESTABLISH (handler address) 
or MOVAL handler, (FP) ; MACRO only 


e Must be established for handling non-compatibility 
mode exceptions 


- For example, access violations 
e May or may not want to. service compatibility mode 
exceptions in this handler as well 
- Special Handler for Compatibility Mode Exceptions 
SDCLCMH system service (specify TYPE=#1) 
e Normal exception dispatching bypassed 


e Control immediately passed to handler when 
compatibility mode exception occurs 


e Handler address stored in Pl space 


CTLSGL_CMHANDLR 
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Starting The Compatibility Mode Image 


e Once the image has been read into memory, final step of 
-initialization is to pass control to the compatibility mode 
image. 
@ Push special PSL onto stack 


e Then push PC at which compatibility mode image is to begin 
executing on stack. 


=- Typically found in image file, but is system dependent 


® Issue REI instruction 


PSL Used to Enter Compatibility Mode = 83Cf#a@axx 


eee ae es ss ce 


ope a a a ee ee + 
| | ; | 
| Bits in PSL | Meaning and Required Values | 
| | | 
op a a a oe + 
| | 
G=-3 | Condition codes (no required values) 
| 4 | T-Bit (no required value) | 
| 5=7 | Arithmetic Trap Enables (must be Zero) | 
8=15 | All set to zero 
| 16-28 | IPL must be zero | 
21 | Must be zero | 
| 22-23 | Previous mode=User (both set) | 
|} 24-25 | Current mode=User (both set) | 
| 26-34 |} Must be zero (Bit 26=IS,3@=Trace Pending) | 
| 31, | Compatibility Mode (must be set) | 
| | 

a +--+ + + 
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Responding to Compatibility Mode Exceptions 


System Response 

e Push PSL, PC, and exception code on kernel stack 

e Vector through SCB to routine EXESCOMPAT 
- New PSL formed that indicates now running in native mode 

again . 

@e EXESCOMPAT performs the following operations: 
- Saves R#-R6 in area in Pl space 
- Pops exception code, PC and PSL 
- Saves exception code, PC, and PSL in Pl space 
- Transfers control to exception dispatcher 

e Information stored in Compatibility Mode Context Area (in Pl 


space) before control is passed to Compatibility Mode 
Exception Handler. . 


<-- CTLSAL_CMCNTX:: <----+ 


or l 
SYS$GL_CMCNTX:: ----- + 


Saved R6 
Exception Code 
Exception PC 
Exception PSL 
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Dispatch to Customized Compatibility Mode Exception Handler 


e Established by SDCLCMH 


_@ Control is passed to handler in user mode 


e Handler accesses information in Pl space 
MOVL G°SYSSGL_CMCNTX;R11 Put address of context 

area into Ril for 

subsequent displacement 

mode addressing 

Pick up PC of 

faulting instruction, 

and also faulting 

PSL 


=e 


we Ge 


MOVW (RG) ,R1G 


Be we BE we 


MOVW 4(RQG),R9 


26 


- Use SYSS symbol not CTLS symbol to avoid linking to system 
symbol table 


- If use CTLS symbol, access information in Pl space using: 


MOVAL G°CTLSAL CMCNTX,R11 ; Use MOVAL, not MOVL 


@ RSX-1L1M AME uses symbolic offsets to reference contents of the 
compatibility mode context area 


TRO = B 
ITRl= 4 
IR2 = 8 
I=-R3 = 12 
I_R4 = 16 
I-RS = 28 
IR6 = 24 

I TYPE = 28 
I PC = 32 
I PS = 36 


e Exception handler must perform whatever action is necessary to 
service the exception. 


~ May handle exception internally 
~- May involve system service calls 


- May involve RMS calls 
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Dispatch to Normal Condition Handler 


No handler established via SDCLCMH 


Exception dispatcher pushes exception PSL, PC, code, and 
symbol SSS_COMPAT on kernel stack 


Signal and mechanism arrays, as well as argument list, built 
on user stack 


Signal array contains: 










eae a 


TK9162 





Exception handler must perform whatever action is necessary to 
service the exception. 


- May handle exception internally 


- May involve system service calls 


- May involve RMS calls 
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Returning Control To Compatibility Mode Image 


@ Normal Condition Handlers 


Must update PC in signal array to point to next 
instruction | 


e@e Required since compatibility mode exception is a fault 
e If not updated, will loop indefinitely, since 


instruction will be re-executed 


May update PSL in signal array to alter condition code 
bits 


e To return information to compatibility mode image 


Place SSS CONTINUE in R@ to indicate exception has bee! 
successfully serviced 


Exit with RET instruction 


e Customized Compatibility Mode Handler 


Must restore registers R@-R6 


PC in context save area must be updated as in norma 
handler case 


PSL in context save area may be updated as in normé 
handler case 


The new PSL and new PC are pushed onto the stack 


An REI instruction is issued 
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Operation 


Method of 
Declaring 
Handler 


Dispatching 
to the 
Handler 


Summary Of Alternative Approaches To 


Declaring CM Exception Handler 


Normal Handler 


- LIBSESTABLISH 


Capable of 
Servicing all 
possible 
exceptions 


Normal exception 


dispatching used 
to locate handler 


Need entry mask 
Entered via CALLG 


Second longword 
of signal array 
must be tested 
for CM exception 


Exception code 
must be examined 
to distinguish 
type of CM 
exception 


Customized CM Handler 


SDCLCMH 


Can only service 
compatibility mode 
exceptions 


Regular condition 
handler must also be 
established to handle 
other exceptions like 
access violation 


Normal exception 
dispatching bypassed 


No time spent looking 
for handler 


Dispatching much faster 


No entry mask 


No special code 
required to determine 
which type of VMS 
exception occurred 


Only services CM 
exceptions 


Exception code still 
must be examined to 
distinguish type of CM 
exception 


Operation 


Arguments 
Passed to 
Handler 


Returning 


to the CM . 


Program 
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Summary Of Alternative Approaches To 
Declaring CM Exception Handler 


Normal Handler 


- Standard signal 
and mechanism 
arrays 


~- Because condition 
handlers are a 
Standardized part 
of VMS, their 
properties remain 
constant from 
release to release 


- No special link 
with executive 


- Put SS$ CONTINUE - 


in R@ 


- Issue RET - 


- Exception dispatcher 
dismisses the 
exception, passing 
control back to CM 
program 


Customized CM Handler 


The PC, PSL, CM exception 
code, and R@-R6 saved in 
Pl space 


The format of Pl space, 
and the use of Rf@ to . 
locate the faulting PC, 
are not governed by any 
Standard, and could 
change in a future 
release of VMS 


Handler may need to be 
linked with system 
symbol table 


If so, handler must be 
relinked with each new 
version 


Using SYSS symbol and 
net CTLS$ symbol avoids 
need to link with 
system symbol table 


Must first restore R@=-R6 


PSL and PC from Pl space 


must be pushed on stack 


Issue REI to dismiss the 


exception, and pass 
Control back to CM program 


























